From 794b248d0afb9ae7eae1bc0d8f6498a903e02e23 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 27 Mar 2019 23:07:51 -0700 Subject: bs: formatting --- lore/Language/Bs/Repl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lore/Language/Bs/Repl.hs') diff --git a/lore/Language/Bs/Repl.hs b/lore/Language/Bs/Repl.hs index 35e473f..64ffaa2 100644 --- a/lore/Language/Bs/Repl.hs +++ b/lore/Language/Bs/Repl.hs @@ -21,7 +21,7 @@ repl = do minput <- getInputLine "bs> " case minput of Nothing -> outputStrLn "bye." - Just input -> liftIO (process input) >> repl + Just input -> (liftIO $ process input) >> repl --Just input -> (liftIO $ processToAST input) >> repl process :: String -> IO () -- cgit v1.2.3