Merge pull request #17 from jacereda/compiler/0.12

Simplify genJCursor, update deps

Author: kritzcreek

bower.json

@@ -21,9 +21,9 @@
   },
   "license": "MIT",
   "dependencies": {
-    "purescript-argonaut-core": "#compiler/0.12",
-    "purescript-argonaut-codecs": "#compiler/0.12",
-    "purescript-profunctor-lenses": "#compiler/0.12"
+    "purescript-argonaut-core": "^4.0.0",
+    "purescript-argonaut-codecs": "^4.0.0",
+    "purescript-profunctor-lenses": "^4.0.0"
   },
   "devDependencies": {
     "purescript-strongcheck": "#compiler/0.12"

package.json

@@ -6,9 +6,9 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^12.0.1",
+    "pulp": "^12.2.0",
+    "purescript": "^0.12.0",
     "purescript-psa": "^0.6.0",
-    "purescript": "^0.11.1",
-    "rimraf": "^2.5.4"
+    "rimraf": "^2.6.2"
   }
 }

src/Data/Argonaut/JCursor/Gen.purs

@@ -8,16 +8,13 @@ import Control.Monad.Gen as Gen
 import Control.Monad.Rec.Class (class MonadRec)
 
 import Data.Argonaut.JCursor (JCursor(..))
-import Data.Char as C
-import Data.String as S
+import Data.String.Gen (genUnicodeString)
 
 genJCursor :: forall m. MonadGen m => MonadRec m => Lazy (m JCursor) => m JCursor
 genJCursor = Gen.resize (min 10) $ Gen.sized genJCursor'
   where
   genJCursor' size
     | size > 0 = Gen.resize (_ - 1) (Gen.choose genField genIndex)
     | otherwise = pure JCursorTop
-  genField = JField <$> genString <*> defer \_ -> genJCursor
+  genField = JField <$> genUnicodeString <*> defer \_ -> genJCursor
   genIndex = JIndex <$> Gen.chooseInt 0 1000 <*> defer \_ -> genJCursor
-  genString = S.fromCharArray <$> Gen.unfoldable genChar
-  genChar = C.fromCharCode <$> Gen.chooseInt 0 65535