diff options
-rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
61 | , prompt = \st -> return $ maybe "" (++ " ") ((evalState ?? st) . toName <$> view gFocus st) ++ "→ " | 61 | , prompt = \st -> return $ maybe "" (++ " ") ((evalState ?? st) . toName <$> view gFocus st) ++ "→ " |
62 | , beforePrompt = do | 62 | , beforePrompt = do |
63 | { gets stateOutline >>= (\str -> if null str then return () else shellPutStr str) | 63 | { gets stateOutline >>= (\str -> if null str then return () else shellPutStr str) |
64 | ; gets focusNotes >>= (\str -> if null str then return () else shellPutStrLn str) | 64 | ; gets focusNotes >>= (\str -> if null str then return () else shellPutStr str) |
65 | } | 65 | } |
66 | , commandStyle = OnlyCommands | 66 | , commandStyle = OnlyCommands |
67 | , shellCommands = [ exitCommand "exit" | 67 | , shellCommands = [ exitCommand "exit" |