From bfd854e05207a073eaa983c49f27c37555ccfce5 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Fri, 26 Jun 2015 23:02:09 +0200
Subject: bump compatibility to nixos-15.06pre64030.e1af50c

---
 RenderTreeView.hs | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'RenderTreeView.hs')

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
-- 
cgit v1.2.3