Merge pull request #6 from cryogenian/effects-and-decode

decodeJson instances, capitalized effect types

Author: jdegoes

MODULES.md

@@ -8,6 +8,7 @@ import Data.Maybe
 import Data.Array hiding (init)
 import Data.String.Regex
 import Data.Date
+import Data.Time
 import Data.Traversable
 import Data.Foldable
 import Utils (precise, getElementById)
@@ -57,7 +58,7 @@ xTimeAxis = do
                     replace onlyDigRgx  "" <$> 
                     toLocaleTimeString <$>
                     toJSDate <$>
-                    fromEpochMilliseconds (start - i * 2000)
+                    fromEpochMilliseconds (start - (Milliseconds (i * 2000)))
 
   return $ mapfn <$> (1..10)
 

example/DynamicLineBar.purs

@@ -45,8 +45,8 @@ function addDataImpl(data, chart) {
     return chart.addData.apply(chart, data);
   };
 }
-""" :: forall e. Fn2 Json EChart (Eff (dataAdd::AddData|e) EChart)
+""" :: forall e. Fn2 Json EChart (Eff (dataAdd::ADD_DATA|e) EChart)
 
-addData :: forall e. AdditionalData -> EChart -> Eff (dataAdd::AddData|e) EChart
+addData :: forall e. AdditionalData -> EChart -> Eff (dataAdd::ADD_DATA|e) EChart
 addData d chart = runFn2 addDataImpl (encodeJson d) chart