fixes partiality/FFI issue (by removing explicit Partial)

Author: bbarker

src/Web/DOM/DOMParser.purs

@@ -7,10 +7,9 @@ module Web.DOM.DOMParser
   , parseXMLFromString
   ) where
 
-import Prelude
+--import Prelude
 
 import Effect (Effect)
-import Partial.Unsafe (unsafePartial)
 import Web.DOM.Document (Document)
 
 foreign import data DOMParser ∷ Type
@@ -19,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 ∷ Partial ⇒ String → String → DOMParser → Document
+foreign import parseFromString ∷ String → String → DOMParser → Document
 
 --| Convience function to parse HTML from a string, partially applying
 --| `parseFromString` with "text/html"
 parseHTMLFromString ∷ String → DOMParser → Document
 parseHTMLFromString s d =
-  unsafePartial $ parseFromString "text/html" 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 s d =
-  unsafePartial $ parseFromString "image/svg+xml" 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=
-  unsafePartial $ parseFromString "application/xml" s d
+  parseFromString "application/xml" s d

test/Data.purs

@@ -1,8 +1,7 @@
 module Test.Data where
 
 noteXml :: String
-noteXml = """
-<?xml version="1.0" encoding="UTF-8"?>
+noteXml = """<?xml version="1.0" encoding="UTF-8"?>
 <note>
   <to>Tove</to>
   <from>Jani</from>