Merge pull request #18 from elliotdavies/feature/head

Add `head` function to HTMLDocument
purescript-web · Sep 15, 2019 · 0aa27db · 0aa27db
2 parents ea3f850 + e6e3999
commit 0aa27db
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/Web/HTML/HTMLDocument.js b/src/Web/HTML/HTMLDocument.js
@@ -1,5 +1,11 @@
 "use strict";
 
+exports._head = function (doc) {
+  return function () {
+    return doc.head;
+  };
+};
+
 exports._body = function (doc) {
   return function () {
     return doc.body;
@@ -43,4 +49,4 @@ exports.setTitle = function (title) {
       return {};
     };
   };
-};
+};
diff --git a/src/Web/HTML/HTMLDocument.purs b/src/Web/HTML/HTMLDocument.purs
@@ -10,6 +10,7 @@ module Web.HTML.HTMLDocument
   , toParentNode
   , toNonElementParentNode
   , toEventTarget
+  , head
   , body
   , readyState
   , activeElement
@@ -68,6 +69,11 @@ toNonElementParentNode = unsafeCoerce
 toEventTarget :: HTMLDocument -> EventTarget
 toEventTarget = unsafeCoerce
 
+foreign import _head :: HTMLDocument -> Effect (Nullable HTMLElement)
+
+head :: HTMLDocument -> Effect (Maybe HTMLElement)
+head = map toMaybe <<< _head
+
 foreign import _body :: HTMLDocument -> Effect (Nullable HTMLElement)
 
 body :: HTMLDocument -> Effect (Maybe HTMLElement)
@@ -91,4 +97,4 @@ currentScript = map toMaybe <<< _currentScript
 foreign import referrer :: HTMLDocument -> Effect String
 
 foreign import title :: HTMLDocument -> Effect String
-foreign import setTitle :: String -> HTMLDocument -> Effect Unit
+foreign import setTitle :: String -> HTMLDocument -> Effect Unit