Fix Booleans

bower.json

@@ -13,6 +13,6 @@
   "dependencies": {
     "purescript-console": "^0.1.0",
     "purescript-foreign": "~0.7.0",
-    "purescript-generics": "~0.4.0"
+    "purescript-generics": "^0.5.0"
   }
 }

src/Data/Foreign/Generic.purs

@@ -26,6 +26,7 @@ readGeneric = map (fromJust <<< fromSpine) <<< go (toSignature (anyProxy :: Prox
   go SigNumber f = map SNumber (readNumber f)
   go SigInt f = map SInt (readInt f)
   go SigString f = map SString (readString f)
+  go SigBoolean f = map SBoolean (readBoolean f)
   go (SigArray el) f = do arr <- readArray f
                           els <- for arr \f -> do
                             e <- go (el unit) f
@@ -46,4 +47,4 @@ readGeneric = map (fromJust <<< fromSpine) <<< go (toSignature (anyProxy :: Prox
 
 -- | Read a value which has a `Generic` type from a JSON String
 readJSONGeneric :: forall a. (Generic a) => String -> F a
-readJSONGeneric = parseJSON >=> readGeneric
+readJSONGeneric = parseJSON >=> readGeneric

test/Main.purs

@@ -21,13 +21,13 @@ json = """
         {
             "tag": "Leaf",
             "values": [
-                1
+                true
             ]
         },
         {
             "tag": "Leaf",
             "values": [
-                2
+                false
             ]
         }
     ]
@@ -39,6 +39,6 @@ readTree :: forall a. (Generic a) => String -> F (Tree a)
 readTree = readJSONGeneric
 
 main = do
-  case readTree json :: F (Tree Int) of
+  case readTree json :: F (Tree Boolean) of
     Right tree -> log (gShow tree)
     Left err -> print err