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