aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 0f66daa..09aeb99 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,6 +2,7 @@ module Main
( main
) where
+import System.Exit (exitFailure)
import System.IO (hPutStrLn, stderr)
import Data.Time.Calendar (Day)
@@ -64,4 +65,6 @@ main = do
putStrLn $ unwords . map show . concatMap (take 1 . reverse) $ groups
Just Delete ->
putStrLn $ unwords . map show . concatMap (drop 1 . reverse) $ groups
- Nothing -> mapM_ (hPutStrLn stderr . unwords . map show . reverse) groups
+ Nothing -> do
+ mapM_ (hPutStrLn stderr . unwords . map show . reverse) groups
+ exitFailure