diff --git a/src/Data/EventTime/Local.hs b/src/Data/EventTime/Local.hs
index 941fbda..37eadaf 100644
--- a/src/Data/EventTime/Local.hs
+++ b/src/Data/EventTime/Local.hs
@@ -269,20 +269,20 @@ class SpecToEventTime s where
 showSingle :: TimeUnit -> Text
 showSingle tu =
     case tu of
-        Second -> "second"
-        Minute -> "minute"
-        Hour   -> "hour"
-        Day    -> "day"
-        Week   -> "week"
-        Month  -> "month"
-        Year   -> "year"
+        Second -> "s"
+        Minute -> "m"
+        Hour   -> "h"
+        Day    -> "d"
+        Week   -> "w"
+        Month  -> "mo"
+        Year   -> "y"
 
 showPlural :: TimeUnit -> Text
 showPlural tu = showSingle tu `snoc` 's'
 
 showTimeUnit :: TimeUnit -> Int -> Text
 showTimeUnit tu 1 = showSingle tu
-showTimeUnit tu _ = showPlural tu
+showTimeUnit tu _ = showSingle tu
 
 
 showTimeAgo :: TimeAgo -> Text