summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs2
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"