updated to work with purescript-web-dom-parser (tests), and Purs 0.13.0

Author: bbarker

bower.json

@@ -16,12 +16,12 @@
   ],
   "dependencies": {
     "purescript-naturals": "^3.0.0",
-    "purescript-web-dom": "^2.0.0"
+    "purescript-web-dom": "^3.0.0"
   },
   "devDependencies": {
     "purescript-test-unit": "^15.0.0",
     "purescript-console": "^4.2.0",
-    "purescript-dom-parser": "bbarker/purescript-dom-parser#9c91afbd752f73b6f33c5c69cb541e3c4c6bf3a9",
+    "purescript-web-dom-parser": "^6.0.0",
     "purescript-debug": "^4.0.0",
     "purescript-foreign": "^5.0.0"
   }

psc.sh

@@ -2,4 +2,4 @@
 
 pulp build --main "Test.Main" --src-path "src" -I "test" \
      -- --censor-lib && \
-parcel --no-hmr --public-url ./ build test/index.html
+parcel build --public-url ./ test/index.html

scripts/testbrowser

@@ -32,8 +32,8 @@ snap2ResType OrderedSnapshotType = ordered_node_snapshot_type
 
 -- | Inverse of `snap2ResType`.
 res2SnapType :: ResultType -> Maybe SnapshotType
-res2SnapType unordered_node_snapshot_type = Just UnorderedSnapshotType
-res2SnapType ordered_node_snapshot_type = Just OrderedSnapshotType
+res2SnapType r | r == unordered_node_snapshot_type = Just UnorderedSnapshotType
+res2SnapType r | r == ordered_node_snapshot_type = Just OrderedSnapshotType
 res2SnapType _ = Nothing
 
 data IteratorType
@@ -47,6 +47,6 @@ iter2ResType OrderedIteratorType = ordered_node_iterator_type
 
 -- | Inverse of `iter2ResType`.
 res2IterType :: ResultType -> Maybe IteratorType
-res2IterType unordered_node_iterator_type = Just UnorderedIteratorType
-res2IterType ordered_node_iterator_type = Just OrderedIteratorType
+res2IterType r | r == unordered_node_iterator_type = Just UnorderedIteratorType
+res2IterType r | r == ordered_node_iterator_type = Just OrderedIteratorType
 res2IterType _ = Nothing

src/Web/DOM/XPath/ResultType.purs

@@ -3,6 +3,7 @@ module Test.Main where
 import Prelude
 
 import Data.Array                        ((!!), length)
+import Data.Either                       (fromRight)
 import Data.Int                          (toNumber)
 import Data.Maybe                        (Maybe(..), fromJust, fromMaybe)
 import Data.Natural                      (intToNat)
@@ -27,16 +28,20 @@ import Web.DOM.Element                   (Element, fromNode, getAttribute)
 import Web.DOM.Node                      (Node, nodeName)
 
 parseAtomFeedDoc :: DOMParser -> Effect Document
-parseAtomFeedDoc dp = parseXMLFromString TD.atomFeedXml dp
+parseAtomFeedDoc dp = unsafePartial $ map fromRight $
+  parseXMLFromString TD.atomFeedXml dp
 
 parseCatalogDoc :: DOMParser -> Effect Document
-parseCatalogDoc dp = parseXMLFromString TD.cdCatalogXml dp
+parseCatalogDoc dp = unsafePartial $ map fromRight $
+  parseXMLFromString TD.cdCatalogXml dp
 
 parseNoteDoc :: DOMParser -> Effect Document
-parseNoteDoc dp = parseXMLFromString TD.noteXml dp
+parseNoteDoc dp = unsafePartial $ map fromRight $
+  parseXMLFromString TD.noteXml dp
 
 parseMetajeloDoc :: DOMParser -> Effect Document
-parseMetajeloDoc dp = parseXMLFromString TD.metajeloXml dp
+parseMetajeloDoc dp = unsafePartial $ map fromRight $
+  parseXMLFromString TD.metajeloXml dp
 
 atomResolver :: NSResolver
 atomResolver = XP.customNSResolver dummyAtomRes