Updates for 0.11.1

Author: paf31

bower.json

@@ -19,18 +19,18 @@
     "url": "git://github.com/paf31/purescript-string-parsers.git"
   },
   "dependencies": {
-    "purescript-control": "^2.0.0",
-    "purescript-arrays": "^3.0.0",
-    "purescript-maybe": "^2.0.1",
-    "purescript-strings": "^2.0.2",
-    "purescript-foldable-traversable": "^2.0.0",
-    "purescript-either": "^2.0.0",
-    "purescript-lists": "^3.1.0",
-    "purescript-tailrec": "^2.0.0"
+    "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"
   },
   "devDependencies": {
     "purescript-math": "^2.0.0",
-    "purescript-console": "^2.0.0",
-    "purescript-assert": "^2.0.0"
+    "purescript-console": "^3.0.0",
+    "purescript-assert": "^3.0.0"
   }
 }

package.json

@@ -2,13 +2,14 @@
   "private": true,
   "scripts": {
     "clean": "rimraf output && rimraf .pulp-cache",
-    "build": "pulp build --censor-lib --strict",
-    "test": "pulp build -I test"
+    "build": "jshint src && jscs src && pulp build --censor-lib --strict",
+    "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^9.0.1",
+    "jscs": "^2.8.0",
+    "jshint": "^2.9.1",
+    "pulp": "^10.0.4",
     "purescript-psa": "^0.3.9",
-    "purescript": "^0.10.1",
-    "rimraf": "^2.5.4"
+    "rimraf": "^2.5.0"
   }
 }

src/Text/Parsing/StringParser.purs

@@ -29,8 +29,9 @@ data ParseError = ParseError String
 instance showParseError :: Show ParseError where
   show (ParseError msg) = msg
 
-instance eqParseError :: Eq ParseError where
-  eq (ParseError x) (ParseError y) = x == y
+derive instance eqParseError :: Eq ParseError
+
+derive instance ordParseError :: Ord ParseError
 
 -- | A parser is represented as a function which takes a pair of
 -- | continuations for failure and success.

src/Text/Parsing/StringParser/Combinators.purs

@@ -140,7 +140,7 @@ chainr1' p f a = (do f' <- f
                      pure $ f' a a') <|> pure a
 
 -- | Parse using any of a collection of parsers.
-choice :: forall f a. (Foldable f) => f (Parser a) -> Parser a
+choice :: forall f a. Foldable f => f (Parser a) -> Parser a
 choice = foldl (<|>) (fail "Nothing to parse")
 
 -- | Parse values until a terminator.

src/Text/Parsing/StringParser/String.purs

@@ -84,11 +84,11 @@ skipSpaces :: Parser Unit
 skipSpaces = void whiteSpace
 
 -- | Match one of the characters in the foldable structure.
-oneOf :: forall f. (Foldable f) => f Char -> Parser Char
+oneOf :: forall f. Foldable f => f Char -> Parser Char
 oneOf = satisfy <<< flip elem
 
 -- | Match any character not in the foldable structure.
-noneOf :: forall f. (Foldable f) => f Char -> Parser Char
+noneOf :: forall f. Foldable f => f Char -> Parser Char
 noneOf = satisfy <<< flip notElem
 
 -- | Match any lower case character.

test/Main.purs

@@ -22,7 +22,7 @@ parens = between (string "(") (string ")")
 
 nested :: Parser Int
 nested = fix $ \p -> (do
-  string "a"
+  _ <- string "a"
   pure 0) <|> ((+) 1) <$> parens p
 
 opTest :: Parser String
@@ -73,7 +73,7 @@ main = do
   assert $ expectResult ("a":"a":"a":Nil)  (many (string "a")) "aaa"
   assert $ parseFail (many1 (string "a")) ""
   assert $ canParse (parens (do
-    string "a"
+    _ <- string "a"
     optionMaybe $ string "b")) "(ab)"
   assert $ expectResult ("a":"a":"a":Nil) (string "a" `sepBy1` string ",") "a,a,a"
   assert $ canParse (do