Merge pull request #66 from bodil/master

Update for 0.10.

Author: garyb

bower.json

@@ -20,15 +20,15 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-datetime": "^1.0.0",
-    "purescript-enums": "^1.0.0",
-    "purescript-exceptions": "^1.0.0",
-    "purescript-foldable-traversable": "^1.0.0",
-    "purescript-foreign": "^1.0.0",
-    "purescript-js-date": "^2.0.0",
-    "purescript-media-types": "^1.0.0",
-    "purescript-nullable": "^1.0.0",
-    "purescript-prelude": "^1.0.0",
-    "purescript-unsafe-coerce": "^1.0.0"
+    "purescript-datetime": "^2.0.0",
+    "purescript-enums": "^2.0.0",
+    "purescript-exceptions": "^2.0.0",
+    "purescript-foldable-traversable": "^2.0.0",
+    "purescript-foreign": "^3.0.0",
+    "purescript-js-date": "^3.0.0",
+    "purescript-media-types": "^2.0.0",
+    "purescript-nullable": "^2.0.0",
+    "purescript-prelude": "^2.1.0",
+    "purescript-unsafe-coerce": "^2.0.0"
   }
 }

src/DOM/HTML/Types.purs

@@ -208,6 +208,7 @@ module DOM.HTML.Types
   ) where
 
 import Prelude
+import Control.Monad.Except.Trans (except)
 import Data.Either (Either(..))
 import Data.Foreign (Foreign, F, ForeignError(..), unsafeReadTagged)
 import Data.Foreign.Class (class IsForeign)
@@ -274,7 +275,7 @@ foreign import _readHTMLElement
   -> F HTMLElement
 
 readHTMLElement :: Foreign -> F HTMLElement
-readHTMLElement = _readHTMLElement (Left <<< TypeMismatch "HTMLElement") Right
+readHTMLElement = _readHTMLElement (except <<< Left <<< pure <<< TypeMismatch "HTMLElement") (except <<< Right)
 
 instance isForeignHTMLElement :: IsForeign HTMLElement where
   read = readHTMLElement