From 7770f4d0e9e1bb207cc3156da191d58c0bffdb3b Mon Sep 17 00:00:00 2001 From: Elliot Davies Date: Thu, 4 Oct 2018 16:28:30 +0100 Subject: [PATCH 1/2] Add support for document title, setTitle, referrer --- src/Web/HTML/HTMLDocument.js | 21 +++++++++++++++++++++ src/Web/HTML/HTMLDocument.purs | 8 ++++++++ 2 files changed, 29 insertions(+) diff --git a/src/Web/HTML/HTMLDocument.js b/src/Web/HTML/HTMLDocument.js index 6f28e1e..3e934a2 100644 --- a/src/Web/HTML/HTMLDocument.js +++ b/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 {}; + }; + }; +}; \ No newline at end of file diff --git a/src/Web/HTML/HTMLDocument.purs b/src/Web/HTML/HTMLDocument.purs index 1da785a..d1f1338 100644 --- a/src/Web/HTML/HTMLDocument.purs +++ b/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 :: HTMLElement -> Effect String +foreign import setTitle :: String -> HTMLElement -> Effect Unit \ No newline at end of file From b7a7cd588539d803c7281cddbf6d80d2ec3b4574 Mon Sep 17 00:00:00 2001 From: Elliot Davies Date: Thu, 4 Oct 2018 16:31:15 +0100 Subject: [PATCH 2/2] Correct type --- src/Web/HTML/HTMLDocument.purs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Web/HTML/HTMLDocument.purs b/src/Web/HTML/HTMLDocument.purs index d1f1338..15dc6ba 100644 --- a/src/Web/HTML/HTMLDocument.purs +++ b/src/Web/HTML/HTMLDocument.purs @@ -90,5 +90,5 @@ currentScript = map toMaybe <<< _currentScript foreign import referrer :: HTMLDocument -> Effect String -foreign import title :: HTMLElement -> Effect String -foreign import setTitle :: String -> HTMLElement -> Effect Unit \ No newline at end of file +foreign import title :: HTMLDocument -> Effect String +foreign import setTitle :: String -> HTMLDocument -> Effect Unit \ No newline at end of file