Merge pull request #7 from elliotdavies/feature/add-document-apis

Add support for more document APIs

Author: garyb

src/Web/HTML/HTMLDocument.js

@@ -23,3 +23,24 @@ exports._currentScript = function (doc) {
     return doc.currentScript;
   };
 };
+
+exports.referrer = function (doc) {
+  return function () {
+    return doc.referrer;
+  };
+};
+
+exports.title = function (doc) {
+  return function () {
+    return doc.title;
+  };
+};
+
+exports.setTitle = function (title) {
+  return function (doc) {
+    return function () {
+      doc.title = title;
+      return {};
+    };
+  };
+};

src/Web/HTML/HTMLDocument.purs

@@ -14,6 +14,9 @@ module Web.HTML.HTMLDocument
   , readyState
   , activeElement
   , currentScript
+  , referrer
+  , title
+  , setTitle
   ) where
 
 import Prelude
@@ -84,3 +87,8 @@ foreign import _currentScript :: HTMLDocument -> Effect (Nullable HTMLScriptElem
 
 currentScript :: HTMLDocument -> Effect (Maybe HTMLScriptElement)
 currentScript = map toMaybe <<< _currentScript
+
+foreign import referrer :: HTMLDocument -> Effect String
+
+foreign import title :: HTMLDocument -> Effect String
+foreign import setTitle :: String -> HTMLDocument -> Effect Unit