diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-07 22:45:25 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-07 22:45:25 +0200 |
| commit | f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1 (patch) | |
| tree | e74095dff34c133179b9750a70323ddd96ab8ab3 /src/Main.hs | |
| parent | 42ec5aea1e5fdeb447817a2993e77f4955060d95 (diff) | |
| download | 2017-01-16_17:13:37-f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1.tar 2017-01-16_17:13:37-f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1.tar.gz 2017-01-16_17:13:37-f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1.tar.bz2 2017-01-16_17:13:37-f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1.tar.xz 2017-01-16_17:13:37-f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1.zip | |
Parse line input to argument list
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index c4c09bc..e6a3024 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -44,6 +44,7 @@ runCli = do | |||
| 44 | lift . outputStrLn $ "Unknown command: »" <> cmd <> "«" | 44 | lift . outputStrLn $ "Unknown command: »" <> cmd <> "«" |
| 45 | ParseError err -> do | 45 | ParseError err -> do |
| 46 | lift . outputStrLn $ "Error parsing input »" <> (fromMaybe "" input) <> "«: " <> err | 46 | lift . outputStrLn $ "Error parsing input »" <> (fromMaybe "" input) <> "«: " <> err |
| 47 | Empty -> return () | ||
| 47 | 48 | ||
| 48 | Quit -> liftIO exitSuccess | 49 | Quit -> liftIO exitSuccess |
| 49 | PerformAlt alt -> apply' alt | 50 | PerformAlt alt -> apply' alt |