diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-10 14:21:01 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-10 14:21:01 +0200 |
| commit | 78eb3dc461ec08bb1860b7772c354660a87088ef (patch) | |
| tree | fa9bd317aacbbdbe858621546cfa205289eca46e /src | |
| parent | 486604532fa99fd294bb2d0c4166d815de6d4fde (diff) | |
| download | 2017-01-16_17:13:37-78eb3dc461ec08bb1860b7772c354660a87088ef.tar 2017-01-16_17:13:37-78eb3dc461ec08bb1860b7772c354660a87088ef.tar.gz 2017-01-16_17:13:37-78eb3dc461ec08bb1860b7772c354660a87088ef.tar.bz2 2017-01-16_17:13:37-78eb3dc461ec08bb1860b7772c354660a87088ef.tar.xz 2017-01-16_17:13:37-78eb3dc461ec08bb1860b7772c354660a87088ef.zip | |
cleanup
Diffstat (limited to 'src')
| -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" |