diff options
| author | tv <tv@shackspace.de> | 2015-06-26 23:02:09 +0200 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-06-26 23:02:09 +0200 |
| commit | bfd854e05207a073eaa983c49f27c37555ccfce5 (patch) | |
| tree | f932957a7180423f4fc387a12d17b251c0b67684 /RenderTreeView.hs | |
| parent | cd4a939f40b41ef624fca9615d9fa285d5046e29 (diff) | |
bump compatibility to nixos-15.06pre64030.e1af50c
Diffstat (limited to 'RenderTreeView.hs')
| -rw-r--r-- | RenderTreeView.hs | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/RenderTreeView.hs b/RenderTreeView.hs index 3926282..a50bf37 100644 --- a/RenderTreeView.hs +++ b/RenderTreeView.hs @@ -25,20 +25,22 @@ import TreeView humanTimeLocale :: HumanTimeLocale humanTimeLocale = defaultHumanTimeLocale { justNow = "now" - , secondsAgo = (++ "s ago") - , oneMinuteAgo = "1m ago" - , minutesAgo = (++ "m ago") - , oneHourAgo = "1h ago" - , aboutHoursAgo = (++ "h ago") + , secondsAgo = \f -> (++ "s" ++ dir f) + , oneMinuteAgo = \f -> "1m" ++ dir f + , minutesAgo = \f -> (++ "m" ++ dir f) + , oneHourAgo = \f -> "1h" ++ dir f + , aboutHoursAgo = \f -> (++ "h" ++ dir f) , at = \_ -> ("" ++) - , daysAgo = (++ "d ago") - , weekAgo = (++ "w ago") - , weeksAgo = (++ "w ago") + , daysAgo = \f -> (++ "d" ++ dir f) + , weekAgo = \f -> (++ "w" ++ dir f) + , weeksAgo = \f -> (++ "w" ++ dir f) , onYear = ("" ++) , dayOfWeekFmt = "%a %H:%M" , thisYearFmt = "%b %e" , prevYearFmt = "%b %e, %Y" } + where dir True = " from now" + dir False = " ago" renderTreeView |