From 9ebb3c6376e60d0a3ae43e9c391f7f1174a86b87 Mon Sep 17 00:00:00 2001
From: Ping Chen <remotenonsense@gmail.com>
Date: Sun, 6 Sep 2020 11:44:25 +0900
Subject: [PATCH] Add now and Milliseconds to DateTime

---
 src/Nonbili/DateTime.purs | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/src/Nonbili/DateTime.purs b/src/Nonbili/DateTime.purs
index fba715b..b41e2dd 100644
--- a/src/Nonbili/DateTime.purs
+++ b/src/Nonbili/DateTime.purs
@@ -1,7 +1,9 @@
 module Nonbili.DateTime
-  ( DateTime
+  ( DateTime(..)
+  , Milliseconds(..)
   , Date
   , Time
+  , now
   , getDate
   , getTime
   , getUTCDate
@@ -12,9 +14,10 @@ import Nonbili.Prelude
 
 import Data.Argonaut.Core as A
 import Data.Argonaut.Decode (class DecodeJson, JsonDecodeError(..))
-import Data.Argonaut.Encode (class EncodeJson)
+import Data.Argonaut.Encode (class EncodeJson, encodeJson)
 import Data.JSDate (JSDate)
 import Data.JSDate as JSDate
+import Data.Time.Duration as DT
 import Effect.Unsafe (unsafePerformEffect)
 
 newtype DateTime = DateTime JSDate
@@ -23,7 +26,8 @@ derive instance ordDateTime :: Ord DateTime
 
 instance decodeJsonDateTime :: DecodeJson DateTime where
   decodeJson json =
-    note (UnexpectedValue json) $ (A.toString json >>= read)
+    note (UnexpectedValue json)
+         (A.toString json >>= read)
 
 instance encodeJsonDateTime :: EncodeJson DateTime where
   encodeJson (DateTime date) =
@@ -41,6 +45,21 @@ read str =
   where
   date = unsafePerformEffect $ JSDate.parse str
 
+now :: Effect DateTime
+now = DateTime <$> JSDate.now
+
+newtype Milliseconds = Milliseconds DT.Milliseconds
+derive instance eqMilliseconds :: Eq Milliseconds
+derive instance ordMilliseconds :: Ord Milliseconds
+
+instance decodeJsonMilliseconds :: DecodeJson Milliseconds where
+  decodeJson json =
+    note (UnexpectedValue json)
+         (Milliseconds <<< DT.Milliseconds <$> A.toNumber json)
+
+instance encodeJsonMilliseconds :: EncodeJson Milliseconds where
+  encodeJson (Milliseconds (DT.Milliseconds ms)) = encodeJson ms
+
 type Date =
   { year :: Number
   , month :: Number