From 347a2aa26ccefa5a543ba9dba75ac1aba1ed1497 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 21 Feb 2017 22:31:37 +0100 Subject: Fix definition of month --- lib/Postdelay/TimeSpec/Units.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Postdelay/TimeSpec/Units.hs b/lib/Postdelay/TimeSpec/Units.hs index 4874ce9..5e4b8ba 100644 --- a/lib/Postdelay/TimeSpec/Units.hs +++ b/lib/Postdelay/TimeSpec/Units.hs @@ -39,7 +39,7 @@ import Text.Megaparsec declareDerivedUnit "Day" [t| Hour |] 24 Nothing declareDerivedUnit "Week" [t| Day |] 7 Nothing -declareDerivedUnit "Month" [t| Day |] 30 Nothing +declareDerivedUnit "Month" [t| Day |] 30.44 Nothing declareDerivedUnit "Year" [t| Day |] 365.25 Nothing type Time = MkQu_DLN D.Time DefaultLCSU Fixed.Pico -- cgit v1.2.3