Remove unnecessary trailing space
This commit is contained in:
parent
2a27f71a10
commit
9b046a80c7
|
@ -225,6 +225,3 @@ completer
|
|||
:: (MonadNix e t f m, MonadIO m)
|
||||
=> CompleterStyle (StateT (IState t f m) m)
|
||||
completer = Prefix (wordCompleter comp) defaultMatcher
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -43,11 +43,3 @@ atomText (NInt i) = pack (show i)
|
|||
atomText (NFloat f) = pack (show f)
|
||||
atomText (NBool b) = if b then "true" else "false"
|
||||
atomText NNull = "null"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -249,10 +249,3 @@ addPath p = either throwError return =<< addPath' p
|
|||
|
||||
toFile_ :: (Framed e m, MonadStore m) => FilePath -> String -> m StorePath
|
||||
toFile_ p contents = either throwError return =<< toFile_' p contents
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -573,6 +573,3 @@ stripPositionInfo = transport phi
|
|||
|
||||
nullPos :: SourcePos
|
||||
nullPos = SourcePos "<string>" (mkPos 1) (mkPos 1)
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -104,10 +104,3 @@ instance MonadAtomicRef (ST s) where
|
|||
let (a, b) = f v
|
||||
writeRef r $! a
|
||||
return b
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -45,4 +45,3 @@ instance (MonadEffects t f m, MonadDataContext f m)
|
|||
p <- lift $ derivationStrict @t @f @m (unliftNValue (runFreshIdT i) v)
|
||||
return $ liftNValue (runFreshIdT i) p
|
||||
traceEffect = lift . traceEffect @t @f @m
|
||||
|
||||
|
|
|
@ -664,11 +664,3 @@ getSpecialOperator o = m Map.! o where
|
|||
buildEntry i = concatMap $ \case
|
||||
(NSpecialDef name op assoc, _) -> [(op, OperatorInfo i assoc name)]
|
||||
_ -> []
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -239,11 +239,3 @@ renderNormalLoop level = fmap (: []) . \case
|
|||
NormalLoop v -> do
|
||||
v' <- renderValue level "" "" v
|
||||
pure $ "Infinite recursion during normalization forcing " <> v'
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -179,11 +179,3 @@ alterF
|
|||
alterF f k m = f (M.lookup k m) <&> \case
|
||||
Nothing -> M.delete k m
|
||||
Just v -> M.insert k v m
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue