Merge pull request #4 from purescript/read-error

Add Error

Author: paf31

README.md

@@ -31,6 +31,8 @@
 
     instance readBoolean :: ReadForeign Prim.Boolean
 
+    instance readError :: ReadForeign Error
+
     instance readMaybe :: (ReadForeign a) => ReadForeign (Maybe a)
 
     instance readNumber :: ReadForeign Prim.Number

bower.json

@@ -26,6 +26,7 @@
     "purescript-either": "*",
     "purescript-maybe": "*",
     "purescript-tuples": "*",
-    "purescript-foldable-traversable": "*"
+    "purescript-foldable-traversable": "*",
+    "purescript-globals": ">=0.1.3"
   }
 }

src/Data/Foreign.purs

@@ -13,6 +13,7 @@ import Data.Either
 import Data.Maybe
 import Data.Tuple
 import Data.Traversable
+import Global (Error(..))
 
 foreign import data Foreign :: *
 
@@ -91,6 +92,9 @@ instance readNumber :: ReadForeign Number where
 instance readBoolean :: ReadForeign Boolean where
   read = ForeignParser $ readPrimType "Boolean"
 
+instance readError :: ReadForeign Error where
+  read = ForeignParser $ readPrimType "Error"
+
 instance readArray :: (ReadForeign a) => ReadForeign [a] where
   read = let
     arrayItem (Tuple i x) = case parseForeign read x of