Encode date as ISO8601

charles-cooper · Apr 11, 2017 · d19502c · d19502c
1 parent 5e4971b
commit d19502c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Elm/Encoder.hs b/src/Elm/Encoder.hs
@@ -126,7 +126,9 @@ instance HasEncoder ElmValue where
     return $ dx <$$> comma <+> dy
 
 instance HasEncoderRef ElmPrimitive where
-  renderRef EDate = pure $ parens "Json.Encode.string << toString"
+  renderRef EDate = do
+    require "Exts.Date"
+    return (parens "Json.Encode.string << Exts.Date.toISOString")
   renderRef EUnit = pure "Json.Encode.null"
   renderRef EInt = pure "Json.Encode.int"
   renderRef EChar = pure "Json.Encode.char"