diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-07 21:46:32 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-05-07 21:46:32 +0200 |
| commit | 42ec5aea1e5fdeb447817a2993e77f4955060d95 (patch) | |
| tree | c9384a47e2cd68fb632354ffc7db3863d40430fd | |
| parent | 3df1de8111f8efa853ed73161a28cb69612322d3 (diff) | |
| download | 2017-01-16_17:13:37-42ec5aea1e5fdeb447817a2993e77f4955060d95.tar 2017-01-16_17:13:37-42ec5aea1e5fdeb447817a2993e77f4955060d95.tar.gz 2017-01-16_17:13:37-42ec5aea1e5fdeb447817a2993e77f4955060d95.tar.bz2 2017-01-16_17:13:37-42ec5aea1e5fdeb447817a2993e77f4955060d95.tar.xz 2017-01-16_17:13:37-42ec5aea1e5fdeb447817a2993e77f4955060d95.zip | |
We’re to strict for error
| -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 834cefd..c4c09bc 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -35,7 +35,7 @@ main = do | |||
| 35 | runCli :: (MonadIO m, MonadException m) => SequenceT m () | 35 | runCli :: (MonadIO m, MonadException m) => SequenceT m () |
| 36 | runCli = do | 36 | runCli = do |
| 37 | input <- lift $ getInputLine "→ " | 37 | input <- lift $ getInputLine "→ " |
| 38 | cmnd <- maybe (return undefined) parseCmd input | 38 | cmnd <- maybe (return $ ParseError "Trying to parse EOF") parseCmd input |
| 39 | case input of | 39 | case input of |
| 40 | Nothing -> liftIO exitSuccess | 40 | Nothing -> liftIO exitSuccess |
| 41 | Just _ -> do | 41 | Just _ -> do |