diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-03 01:02:26 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-03 01:02:26 +0200 |
| commit | 49847034c56b105763a9d6d369f68a7d433ca521 (patch) | |
| tree | 793e19db1a71a5f3766aaf0419a406a5f531ada5 /src/Main.hs | |
| parent | ab903fff1d08e36092d25205e061fe42e5c62d4b (diff) | |
| download | 2017-01-16_17:13:37-49847034c56b105763a9d6d369f68a7d433ca521.tar 2017-01-16_17:13:37-49847034c56b105763a9d6d369f68a7d433ca521.tar.gz 2017-01-16_17:13:37-49847034c56b105763a9d6d369f68a7d433ca521.tar.bz2 2017-01-16_17:13:37-49847034c56b105763a9d6d369f68a7d433ca521.tar.xz 2017-01-16_17:13:37-49847034c56b105763a9d6d369f68a7d433ca521.zip | |
Getter for tip of queue
Diffstat (limited to 'src/Main.hs')
| -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 903da05..ea663e8 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -38,7 +38,7 @@ main = do | |||
| 38 | let | 38 | let |
| 39 | description = initialShellDescription | 39 | description = initialShellDescription |
| 40 | { historyFile = Just historyFile | 40 | { historyFile = Just historyFile |
| 41 | , prompt = \st -> return $ maybe "" (++ " ") ((evalState ?? st) . toName . snd <$> (listToMaybe $ view priorityQueue st)) ++ "→ " | 41 | , prompt = \st -> return $ maybe "" (++ " ") ((evalState ?? st) . toName <$> view tip st) ++ "→ " |
| 42 | , beforePrompt = gets stateOutline >>= (\str -> if null str then return () else shellPutStrLn str) | 42 | , beforePrompt = gets stateOutline >>= (\str -> if null str then return () else shellPutStrLn str) |
| 43 | , commandStyle = OnlyCommands | 43 | , commandStyle = OnlyCommands |
| 44 | , shellCommands = [ exitCommand "exit" | 44 | , shellCommands = [ exitCommand "exit" |