From bca17dab683a439b02bdcb0bb273bf82b86c0f9d Mon Sep 17 00:00:00 2001 From: Ricard Illa Date: Sat, 24 Jul 2021 19:48:37 +0200 Subject: [PATCH] minor format change --- src/Monitors/Date.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Monitors/Date.hs b/src/Monitors/Date.hs index a1e5e4a..d6ee996 100644 --- a/src/Monitors/Date.hs +++ b/src/Monitors/Date.hs @@ -18,12 +18,12 @@ fullFmtter True icon x = printf "%s %s" (icons M.! icon) x fullFmtter _ _ x = x fmtter :: FormatTime t => Bool -> String -> String -> t -> String -fmtter full icon fmt = (fullFmtter full icon) . (formatTime defaultTimeLocale fmt) +fmtter full icon fmt = fullFmtter full icon . formatTime defaultTimeLocale fmt fmtTime :: FormatTime t => Bool -> t -> String fmtTime full time = let - date = fmtter full "calendar" "%m/%d" time + date = fmtter full "calendar" "%y/%m/%d" time hour = fmtter full "clock" "%H:%M" time in printf "%s%s%s%s " separator date separator hour