From 9fc6a41ffdcbe53950c4eba9f6092da5772d7134 Mon Sep 17 00:00:00 2001 From: toastal Date: Thu, 15 Jul 2021 23:38:15 +0700 Subject: [PATCH] add navigator.languages --- CHANGELOG.md | 1 + src/Web/HTML/Navigator.js | 8 +++++++- src/Web/HTML/Navigator.purs | 4 +++- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index c035de5..60810e4 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based Breaking changes: New features: +- Added `languages` value for `Navigator` (#59 by @toastal) Bugfixes: diff --git a/src/Web/HTML/Navigator.js b/src/Web/HTML/Navigator.js index 474d9e3..d03fc12 100644 --- a/src/Web/HTML/Navigator.js +++ b/src/Web/HTML/Navigator.js @@ -6,6 +6,12 @@ exports.language = function (navigator) { }; }; +exports.languages = function (navigator) { + return function () { + return navigator.languages; + }; +}; + exports.platform = function (navigator) { return function () { return navigator.platform; @@ -16,4 +22,4 @@ exports.userAgent = function (navigator) { return function () { return navigator.userAgent; }; -}; \ No newline at end of file +}; diff --git a/src/Web/HTML/Navigator.purs b/src/Web/HTML/Navigator.purs index 3ecb00b..f2f2452 100644 --- a/src/Web/HTML/Navigator.purs +++ b/src/Web/HTML/Navigator.purs @@ -6,6 +6,8 @@ foreign import data Navigator :: Type foreign import language :: Navigator -> Effect String +foreign import languages :: Navigator -> Effect (Array String) + foreign import platform :: Navigator -> Effect String -foreign import userAgent :: Navigator -> Effect String \ No newline at end of file +foreign import userAgent :: Navigator -> Effect String