Merge pull request #46 from menelaos/window-properties

Add `innerWidth` and `innerHeight` for `Window`

Author: garyb

src/DOM/HTML/Window.js

@@ -20,3 +20,15 @@ exports.location = function (window) {
     return window.location;
   };
 };
+
+exports.innerWidth = function (window) {
+  return function () {
+    return window.innerWidth;
+  };
+};
+
+exports.innerHeight = function (window) {
+  return function () {
+    return window.innerHeight;
+  };
+};

src/DOM/HTML/Window.purs

@@ -10,3 +10,7 @@ foreign import document :: forall eff. Window -> Eff (dom :: DOM | eff) HTMLDocu
 foreign import navigator :: forall eff. Window -> Eff (dom :: DOM | eff) Navigator
 
 foreign import location :: forall eff. Window -> Eff (dom :: DOM | eff) Location
+
+foreign import innerWidth :: forall eff. Window -> Eff (dom :: DOM | eff) Int
+
+foreign import innerHeight :: forall eff. Window -> Eff (dom :: DOM | eff) Int