Merge pull request #18 from safareli/ps11

Updates for Purescript 0.11

Author: safareli

bower.json

@@ -16,15 +16,15 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-prelude": "^2.5.0",
-    "purescript-parsing": "^3.2.1",
-    "purescript-fixed-points": "^3.0.0",
-    "purescript-datetime": "^2.1.0"
+    "purescript-prelude": "^3.0.0",
+    "purescript-parsing": "^4.0.0",
+    "purescript-fixed-points": "^4.0.0",
+    "purescript-datetime": "^3.0.0"
   },
   "devDependencies": {
-    "purescript-aff": "^2.0.3",
-    "purescript-console": "^2.0.0",
-    "purescript-psci-support": "^2.0.0",
-    "purescript-debug": "^2.0.0"
+    "purescript-aff": "^3.0.0",
+    "purescript-console": "^3.0.0",
+    "purescript-psci-support": "^3.0.0",
+    "purescript-debug": "^3.0.0"
   }
 }

package.json

@@ -6,9 +6,9 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^10.0.1",
-    "purescript": "^0.10.7",
-    "purescript-psa": "^0.4.0",
+    "pulp": "^11.0.0",
+    "purescript": "^0.11.0",
+    "purescript-psa": "^0.5.0",
     "rimraf": "^2.6.1"
   }
 }

src/Data/Formatter/DateTime.purs

@@ -394,9 +394,8 @@ unformatFParser cb = case _ of
     when (Arr.length ds /= 3 || sss < 0 || sss > 999) $ P.fail "Incorrect millisecond"
     lift $ modify _{millisecond = Just sss}
     cb a
-  Placeholder s a → do
-    PS.string s
-    cb a
+  Placeholder s a →
+    PS.string s *> cb a
   End →
     pure unit
 

src/Data/Formatter/Number.purs

@@ -149,9 +149,7 @@ unformatParser f = do
     digitsWithCommas =
       if not f.comma
         then do
-        ds ← some digit
-        PS.string "."
-        pure ds
+        some digit <* PS.string "."
         else
         digitsWithCommas' [ ]
 

test/src/Main.purs

@@ -10,7 +10,7 @@ import Data.Time as T
 import Debug.Trace as DT
 import Control.Monad.Aff (Aff, Canceler, runAff)
 import Control.Monad.Aff.Class (liftAff)
-import Control.Monad.Eff (Eff)
+import Control.Monad.Eff (Eff, kind Effect)
 import Control.Monad.Eff.Console (CONSOLE)
 import Control.Monad.Eff.Exception (EXCEPTION, error)
 import Control.Monad.Error.Class (throwError)
@@ -35,7 +35,7 @@ log :: forall e. String -> Tests e Unit
 log message = liftAff $ AffC.log message
 
 
-foreign import data PROCESS :: !
+foreign import data PROCESS :: Effect
 foreign import exit :: Int -> forall e. Eff (process :: PROCESS | e) Unit