minor format change
parent
a17f3f0e27
commit
bca17dab68
|
@ -18,12 +18,12 @@ fullFmtter True icon x = printf "%s %s" (icons M.! icon) x
|
||||||
fullFmtter _ _ x = x
|
fullFmtter _ _ x = x
|
||||||
|
|
||||||
fmtter :: FormatTime t => Bool -> String -> String -> t -> String
|
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 :: FormatTime t => Bool -> t -> String
|
||||||
fmtTime full time =
|
fmtTime full time =
|
||||||
let
|
let
|
||||||
date = fmtter full "calendar" "%m/%d" time
|
date = fmtter full "calendar" "%y/%m/%d" time
|
||||||
hour = fmtter full "clock" "%H:%M" time
|
hour = fmtter full "clock" "%H:%M" time
|
||||||
in printf "%s%s%s%s " separator date separator hour
|
in printf "%s%s%s%s " separator date separator hour
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue