From 347a2aa26ccefa5a543ba9dba75ac1aba1ed1497 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <aethoago@141.li>
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(-)

(limited to 'lib/Postdelay/TimeSpec')

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