From 78eb3dc461ec08bb1860b7772c354660a87088ef Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 10 Jun 2016 14:21:01 +0200 Subject: cleanup --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 36f2687..d07cad5 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -61,7 +61,7 @@ main = do , prompt = \st -> return $ maybe "" (++ " ") ((evalState ?? st) . toName <$> view gFocus st) ++ "→ " , beforePrompt = do { gets stateOutline >>= (\str -> if null str then return () else shellPutStr str) - ; gets focusNotes >>= (\str -> if null str then return () else shellPutStrLn str) + ; gets focusNotes >>= (\str -> if null str then return () else shellPutStr str) } , commandStyle = OnlyCommands , shellCommands = [ exitCommand "exit" -- cgit v1.2.3