compiler 0.12 updates

Author: justinwoo

bower.json

@@ -19,18 +19,18 @@
     "url": "git://github.com/paf31/purescript-string-parsers.git"
   },
   "dependencies": {
-    "purescript-control": "^3.0.0",
-    "purescript-arrays": "^4.0.0",
-    "purescript-maybe": "^3.0.0",
-    "purescript-strings": "^3.0.0",
-    "purescript-foldable-traversable": "^3.0.0",
-    "purescript-either": "^3.0.0",
-    "purescript-lists": "^4.0.0",
-    "purescript-tailrec": "^3.0.0"
+    "purescript-control": "#compiler/0.12",
+    "purescript-arrays": "#compiler/0.12",
+    "purescript-maybe": "#compiler/0.12",
+    "purescript-strings": "#compiler/0.12",
+    "purescript-foldable-traversable": "#compiler/0.12",
+    "purescript-either": "#compiler/0.12",
+    "purescript-lists": "#compiler/0.12",
+    "purescript-tailrec": "#compiler/0.12"
   },
   "devDependencies": {
-    "purescript-math": "^2.0.0",
-    "purescript-console": "^3.0.0",
-    "purescript-assert": "^3.0.0"
+    "purescript-math": "#compiler/0.12",
+    "purescript-console": "#compiler/0.12",
+    "purescript-assert": "#compiler/0.12"
   }
 }

psc-package.json

@@ -0,0 +1,18 @@
+{
+  "name": "purescript-string-parsers",
+  "set": "compiler/0.12",
+  "source": "https://github.com/justinwoo/package-sets.git",
+  "depends": [
+    "control",
+    "arrays",
+    "maybe",
+    "strings",
+    "foldable-traversable",
+    "either",
+    "lists",
+    "tailrec",
+    "math",
+    "console",
+    "assert"
+  ]
+}

src/Text/Parsing/StringParser/Expr.purs

@@ -46,8 +46,8 @@ buildExprParser operators simpleExpr =
         prefixOp  = choice accum.prefix <?> ""
         postfixOp = choice accum.postfix <?> ""
 
-        postfixP = postfixOp <|> pure id
-        prefixP  = prefixOp <|> pure id
+        postfixP = postfixOp <|> pure identity
+        prefixP  = prefixOp <|> pure identity
       in do
         x <- termP prefixP term postfixP
         rassocP x rassocOp prefixP term postfixP

test/Main.purs

@@ -3,8 +3,7 @@ module Test.Main where
 import Prelude hiding (between)
 
 import Control.Alt ((<|>))
-import Control.Monad.Eff (Eff)
-import Control.Monad.Eff.Console (CONSOLE)
+import Effect (Effect)
 
 import Data.Either (isLeft, isRight, Either(..))
 import Data.Foldable (fold)
@@ -13,7 +12,7 @@ import Data.List.Lazy (take, repeat)
 import Data.String (joinWith, singleton)
 import Data.Unfoldable (replicate)
 
-import Test.Assert (assert', ASSERT, assert)
+import Test.Assert (assert', assert)
 import Text.Parsing.StringParser (Parser, runParser, try)
 import Text.Parsing.StringParser.Combinators (many1, endBy1, sepBy1, optionMaybe, many, manyTill, many1Till, chainl, fix, between)
 import Text.Parsing.StringParser.Expr (Assoc(..), Operator(..), buildExprParser)
@@ -64,7 +63,7 @@ parseFail p input = isLeft $ runParser p input
 expectResult :: forall a. (Eq a) => a -> Parser a -> String -> Boolean
 expectResult res p input = runParser p input == Right res
 
-main :: forall e. Eff (console :: CONSOLE, assert :: ASSERT | e) Unit
+main :: Effect Unit
 main = do
   assert' "many should not blow the stack" $ canParse (many (string "a")) (joinWith "" $ replicate 100000 "a")
   assert' "many failing after" $ parseFail (do