Fix title in --for-each reports
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 1 Dec 2014 15:19:16 +0000 (15:19 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 1 Dec 2014 15:19:16 +0000 (15:19 +0000)
src/Stats.hs

index f98eefc..b2bce37 100644 (file)
@@ -178,12 +178,19 @@ processRepeater :: TimeZone -> Repeater -> LeftFold (Bool :!: TimeLogEntry (Ctx,
 processRepeater tz r rep = case repeaterImpl r of
     RepeaterImpl catR showR ->
         filterElems (\(b :!: _) -> b) $
-        pure (RepeatedReportResults "Day" . map (first showR) . M.toList) <*>
+        pure (RepeatedReportResults (repeaterTitle r) . map (first showR) . M.toList) <*>
         multiplex (catR . utcToLocalTime tz . tlTime . Strict.snd) rep
 
 data RepeaterImpl where
   RepeaterImpl :: Ord r => (LocalTime -> r) -> (r -> String) -> RepeaterImpl
 
+repeaterTitle :: Repeater -> String
+repeaterTitle ByMinute = "Minute"
+repeaterTitle ByHour   = "Hour"
+repeaterTitle ByDay    = "Day"
+repeaterTitle ByMonth  = "Month"
+repeaterTitle ByYear   = "Year"
+
 repeaterImpl :: Repeater -> RepeaterImpl
 repeaterImpl ByMinute = RepeaterImpl
     -- a somewhat lazy implementations, using strings...