From 33b85b7f12798f5762d940ed5c30f775cdd7b751 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Jan 2018 12:13:09 +0100
Subject: WIP

---
 common/src/Common/Util/Time.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 common/src/Common/Util/Time.hs

(limited to 'common/src/Common/Util/Time.hs')

diff --git a/common/src/Common/Util/Time.hs b/common/src/Common/Util/Time.hs
new file mode 100644
index 0000000..9ab7ab5
--- /dev/null
+++ b/common/src/Common/Util/Time.hs
@@ -0,0 +1,26 @@
+module Common.Util.Time
+  ( timeToDay
+  , parseDay
+  ) where
+
+import           Data.Text           (Text)
+import qualified Data.Text           as T
+import           Data.Time           (UTCTime)
+import qualified Data.Time           as Time
+import           Data.Time.Calendar  (Day)
+import           Data.Time.LocalTime
+import qualified Text.Read           as T
+
+timeToDay :: UTCTime -> IO Day
+timeToDay time = localDay . (flip utcToLocalTime time) <$> getTimeZone time
+
+parseDay :: Text -> Maybe Day
+parseDay str = do
+  (d, m, y) <-
+    case T.splitOn str "/" of
+      [d, m, y] -> Just (d, m, y)
+      _         -> Nothing
+  d' <- T.readMaybe . T.unpack $ d
+  m' <- T.readMaybe . T.unpack $ m
+  y' <- T.readMaybe . T.unpack $ y
+  return $ Time.fromGregorian y' m' d'
-- 
cgit v1.2.3


From 50fb8fa48d1c4881da20b4ecf6d68a772301e713 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 30 Oct 2018 18:04:58 +0100
Subject: Update table when adding or removing a payment

---
 common/src/Common/Util/Time.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'common/src/Common/Util/Time.hs')

diff --git a/common/src/Common/Util/Time.hs b/common/src/Common/Util/Time.hs
index 9ab7ab5..6240720 100644
--- a/common/src/Common/Util/Time.hs
+++ b/common/src/Common/Util/Time.hs
@@ -16,9 +16,9 @@ timeToDay time = localDay . (flip utcToLocalTime time) <$> getTimeZone time
 
 parseDay :: Text -> Maybe Day
 parseDay str = do
-  (d, m, y) <-
-    case T.splitOn str "/" of
-      [d, m, y] -> Just (d, m, y)
+  (y, m, d) <-
+    case T.splitOn "-" str of
+      [y, m, d] -> Just (y, m, d)
       _         -> Nothing
   d' <- T.readMaybe . T.unpack $ d
   m' <- T.readMaybe . T.unpack $ m
-- 
cgit v1.2.3