From 309ad423e05487d697a1501d1ca2e9974632815e Mon Sep 17 00:00:00 2001
From: Bodil Stokke <bodil@bodil.org>
Date: Mon, 17 Oct 2016 23:53:45 +0100
Subject: [PATCH] Update for 0.10.

---
 bower.json              | 20 ++++++++++----------
 src/DOM/HTML/Types.purs |  3 ++-
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/bower.json b/bower.json
index d2dd0b0..1946d92 100644
--- a/bower.json
+++ b/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"
   }
 }
diff --git a/src/DOM/HTML/Types.purs b/src/DOM/HTML/Types.purs
index f7b3ad8..cc7f6c4 100644
--- a/src/DOM/HTML/Types.purs
+++ b/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