Merge pull request #42 from garyb/ready/dom

Update to new DOM

Author: jdegoes

bower.json

@@ -25,8 +25,8 @@
   "dependencies": {
     "purescript-aff": "^0.11.0",
     "purescript-arraybuffer-types": "^0.2.0",
-    "purescript-dom": "^0.1.2",
-    "purescript-foreign": "^0.5.0",
+    "purescript-dom": "^0.2.0",
+    "purescript-foreign": "^0.7.0",
     "purescript-integers": "^0.2.0",
     "purescript-math": "^0.2.0",
     "purescript-nullable": "^0.2.0",

src/Network/HTTP/Affjax.purs

@@ -33,7 +33,7 @@ import Data.Function (Fn5(), runFn5, Fn4(), runFn4)
 import Data.Int (toNumber, round)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Nullable (Nullable(), toNullable)
-import DOM.XHR (XMLHttpRequest())
+import DOM.XHR.Types (XMLHttpRequest())
 import Math (max, pow)
 import Network.HTTP.Affjax.Request
 import Network.HTTP.Affjax.Response

src/Network/HTTP/Affjax/Request.purs

@@ -4,9 +4,9 @@ module Network.HTTP.Affjax.Request
   ) where
 
 import Prelude
-import DOM (Document())
-import DOM.File (Blob())
-import DOM.XHR (FormData())
+import DOM.File.Types (Blob())
+import DOM.Node.Types (Document())
+import DOM.XHR.Types (FormData())
 import qualified Unsafe.Coerce as U
 import qualified Data.ArrayBuffer.Types as A
 

src/Network/HTTP/Affjax/Response.purs

@@ -7,9 +7,9 @@ module Network.HTTP.Affjax.Response
 import Prelude
 import Data.Either (Either(..))
 import Data.Foreign (Foreign(), F(), readString, unsafeReadTagged)
-import DOM (Document())
-import DOM.File (Blob())
-import DOM.XHR (FormData())
+import DOM.File.Types (Blob())
+import DOM.Node.Types (Document())
+import DOM.XHR.Types (FormData())
 import qualified Data.ArrayBuffer.Types as A
 
 -- | Valid response types for an AJAX request. This is used to determine the

src/Network/HTTP/ResponseHeader.purs

@@ -14,7 +14,6 @@ responseHeader field value = ResponseHeader field value
 
 instance eqResponseHeader :: Eq ResponseHeader where
   eq (ResponseHeader h1 v1) (ResponseHeader h2 v2) = h1 == h2 && v1 == v2
-  eq _ _ = false
 
 instance showResponseHeader :: Show ResponseHeader where
   show (ResponseHeader h v) = "(ResponseHeader " ++ show h ++ " " ++ show v ++ ")"