[commit: packages/time] format-widths, improve-leapseconds, master, posix-perf, tasty, wip/travis: remove "intervals" from TimeLocale (2be4631)

git at git.haskell.org git at git.haskell.org
Mon Feb 20 21:16:31 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/2be46316b8ae4849fb38555c36722116b71edd74

>---------------------------------------------------------------

commit 2be46316b8ae4849fb38555c36722116b71edd74
Author: Ashley Yakeley <ashley at yakeley.org>
Date:   Mon Sep 1 21:22:44 2014 -0700

    remove "intervals" from TimeLocale


>---------------------------------------------------------------

2be46316b8ae4849fb38555c36722116b71edd74
 lib/Data/Time/Format/Locale.hs | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/lib/Data/Time/Format/Locale.hs b/lib/Data/Time/Format/Locale.hs
index e613fb9..ce0598a 100644
--- a/lib/Data/Time/Format/Locale.hs
+++ b/lib/Data/Time/Format/Locale.hs
@@ -18,7 +18,6 @@ data TimeLocale = TimeLocale {
         wDays  :: [(String, String)],
         -- |full and abbreviated months
         months :: [(String, String)],
-        intervals :: [(String, String)],
         -- |AM\/PM symbols
         amPm   :: (String, String),
         -- |formatting strings
@@ -47,15 +46,6 @@ defaultTimeLocale =  TimeLocale {
                   ("September", "Sep"), ("October",   "Oct"),
                   ("November",  "Nov"), ("December",  "Dec")],
 
-        intervals = [ ("year","years")
-                    , ("month", "months")
-                    , ("day","days")
-                    , ("hour","hours")
-                    , ("min","mins")
-                    , ("sec","secs")
-                    , ("usec","usecs")
-                    ],
-
         amPm = ("AM", "PM"),
         dateTimeFmt = "%a %b %e %H:%M:%S %Z %Y",
         dateFmt = "%m/%d/%y",



More information about the ghc-commits mailing list