aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 0ab3259..0f66daa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -60,6 +60,8 @@ main = do
opts <- execParser $ info (parseOptions <**> helper) fullDesc
let groups = partitionDays (\n -> floor (base opts ^ (n - 1))) (days opts)
case mode opts of
- Just Keep -> putStrLn $ unwords . map show . concatMap (take 1) $ groups
- Just Delete -> putStrLn $ unwords . map show . concatMap (drop 1) $ groups
- Nothing -> mapM_ (hPutStrLn stderr . unwords . map show) groups
+ Just Keep ->
+ 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