Added Effect type (#1)

* added effects but function call is bad at runtime

* added effect thunk fix

Author: bbarker

package.json

@@ -18,6 +18,6 @@
     "rimraf": "^2.6.3"
   },
   "dependencies": {
-    "psc-package": "^0.3.2"
+    "psc-package": "^3.0.1"
   }
 }

src/Web/DOM/DOMParser.js

@@ -8,7 +8,9 @@ exports.makeDOMParser = function () {
 exports.parseFromString = function (documentType) {
   return function (sourceString) {
     return function (domParser) {
-      return domParser.parseFromString(sourceString, documentType);
+      return function () { // Effect thunk
+        return domParser.parseFromString(sourceString, documentType);
+      };
     };
   };
 };

src/Web/DOM/DOMParser.purs

@@ -18,22 +18,22 @@ foreign import data DOMParser ∷ Type
 foreign import makeDOMParser ∷ Effect DOMParser
 
 --| Parse a string with the first argumet being a string for a doctype
-foreign import parseFromString ∷ String → String → DOMParser → Document
+foreign import parseFromString ∷ String → String → DOMParser → Effect Document
 
 --| Convience function to parse HTML from a string, partially applying
 --| `parseFromString` with "text/html"
-parseHTMLFromString ∷ String → DOMParser → Document
+parseHTMLFromString ∷ String → DOMParser → Effect Document
 parseHTMLFromString s d =
   parseFromString "text/html" s d
 
 --| Convience function to parse SVG from a string, partially applying
 --| `parseFromString` with "image/svg+xml"
-parseSVGFromString ∷ String → DOMParser → Document
+parseSVGFromString ∷ String → DOMParser → Effect Document
 parseSVGFromString s d =
   parseFromString "image/svg+xml" s d
 
 --| Convience function to parse XML from a string, partially applying
 --| `parseFromString` with "application/xml"
-parseXMLFromString ∷ String → DOMParser → Document
-parseXMLFromString s  d=
+parseXMLFromString ∷ String → DOMParser → Effect Document
+parseXMLFromString s d =
   parseFromString "application/xml" s d

test/Main.purs

@@ -9,11 +9,15 @@ import Test.Data as TD
 import Web.DOM.Document (Document)
 import Web.DOM.DOMParser (DOMParser, makeDOMParser, parseXMLFromString)
 
-parseNoteDoc :: DOMParser -> Document
-parseNoteDoc dp = parseXMLFromString TD.noteXml dp
+parseNoteDoc :: DOMParser -> Effect Document
+parseNoteDoc = parseXMLFromString TD.noteXml
+
+-- parseGarbage :: DOMParser -> Effect Document
+-- parseGarbage dp = parseXMLFromString "`~~`lkjlj3424" dp
 
 main :: Effect Unit
 main = do
   domParser <- makeDOMParser
-  note <- pure $ parseNoteDoc domParser
+  note <- parseNoteDoc domParser
+  -- garbageOut <- parseGarbage domParser
   log "TODO: You should add some tests."