ADD: Generics

bower.json

@@ -20,7 +20,9 @@
     "purescript-exceptions": "^3.0.0",
     "purescript-foreign": "^4.0.0",
     "purescript-integers": "^3.0.0",
-    "purescript-now": "^3.0.0"
+    "purescript-now": "^3.0.0",
+    "purescript-generics-rep": "^5.4.0",
+    "purescript-foreign-generic": "^5.0.1"
   },
   "devDependencies": {
     "purescript-assert": "^3.0.0",

src/Data/JSDate.purs

@@ -58,7 +58,10 @@ import Data.DateTime.Instant (Instant)
 import Data.DateTime.Instant as Instant
 import Data.Enum (fromEnum)
 import Data.Foreign (F, Foreign, unsafeReadTagged)
+import Data.Foreign.Class (class Encode, class Decode)
+import Data.Foreign.Generic as Fgn
 import Data.Function.Uncurried (Fn2, runFn2)
+import Data.Generic.Rep (class Generic, Argument(..), Constructor(..))
 import Data.Int (toNumber)
 import Data.Maybe (Maybe(..))
 import Data.Time as Time
@@ -76,6 +79,16 @@ instance ordJSDate :: Ord JSDate where
 instance showJSDate :: Show JSDate where
   show a = "(fromTime " <> show (getTime a) <> ")"
 
+instance genericJSDate :: Generic JSDate (Constructor "JSDate" (Argument Number)) where
+  to (Constructor (Argument time)) = fromTime time
+  from x = Constructor (Argument (getTime x))
+
+instance encodeJSDate :: Encode JSDate where
+  encode = Fgn.genericEncode Fgn.defaultOptions
+
+instance decodeJSDate :: Decode JSDate where
+  decode = Fgn.genericDecode Fgn.defaultOptions
+
 -- | The effect type used when indicating the current machine's date/time locale
 -- | is used in computing a value.
 foreign import data LOCALE :: Effect