From 32cda24f58d9c847aca6f29efda42a74bf7b3a3c Mon Sep 17 00:00:00 2001 From: Anton-Latukha Date: Fri, 18 Sep 2020 16:51:23 +0300 Subject: [PATCH] clean-up: Repl: initState: reduce do block --- main/Repl.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/main/Repl.hs b/main/Repl.hs index 107eaef..75891b3 100644 --- a/main/Repl.hs +++ b/main/Repl.hs @@ -167,9 +167,7 @@ initState mIni = do evalText :: (MonadNix e t f m) => Text -> m (NValue t f m) evalText expr = case parseNixTextLoc expr of Failure e -> error $ "Impossible happened: Unable to parse expression - '" ++ Data.Text.unpack expr ++ "' error was " ++ show e - Success e -> do - value <- evalExprLoc e - pure value + Success e -> do evalExprLoc e type Repl e t f m = HaskelineT (StateT (IState t f m) m)