clean-up: Repl: initState: reduce do block
This commit is contained in:
parent
10051fbfc1
commit
32cda24f58
|
@ -167,9 +167,7 @@ initState mIni = do
|
||||||
evalText :: (MonadNix e t f m) => Text -> m (NValue t f m)
|
evalText :: (MonadNix e t f m) => Text -> m (NValue t f m)
|
||||||
evalText expr = case parseNixTextLoc expr of
|
evalText expr = case parseNixTextLoc expr of
|
||||||
Failure e -> error $ "Impossible happened: Unable to parse expression - '" ++ Data.Text.unpack expr ++ "' error was " ++ show e
|
Failure e -> error $ "Impossible happened: Unable to parse expression - '" ++ Data.Text.unpack expr ++ "' error was " ++ show e
|
||||||
Success e -> do
|
Success e -> do evalExprLoc e
|
||||||
value <- evalExprLoc e
|
|
||||||
pure value
|
|
||||||
|
|
||||||
type Repl e t f m = HaskelineT (StateT (IState t f m) m)
|
type Repl e t f m = HaskelineT (StateT (IState t f m) m)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue