Merge pull request #138 from mvaled/add-media-query-list

Author: TheSpyder

src/Webapi/Dom/Webapi__Dom__MediaQueryList.res

@@ -0,0 +1,8 @@
+type t
+
+include Webapi__Dom__EventTarget.Impl({
+  type t = t
+})
+
+@get external matches: t => bool = "matches"
+@get external media: t => string = "media"

src/Webapi/Dom/Webapi__Dom__Window.res

@@ -12,7 +12,7 @@ type scrollbars /* "bar object" */
 type speechSynthesis
 type statusbar /* "bar object" */
 type toolbar /* "bar object" */
-type mediaQueryList /* CSSOM View module */
+type mediaQueryList = Webapi__Dom__MediaQueryList.t /* CSSOM View module */
 type transferable
 
 type idleCallbackId /* used by requestIdleCallback and cancelIdleCallback */

src/Webapi/Webapi__Dom.res

@@ -47,6 +47,7 @@ module Image = Webapi__Dom__Image
 module InputEvent = Webapi__Dom__InputEvent
 module KeyboardEvent = Webapi__Dom__KeyboardEvent
 module Location = Webapi__Dom__Location
+module MediaQueryList = Webapi__Dom__MediaQueryList
 module MouseEvent = Webapi__Dom__MouseEvent
 module MutationObserver = Webapi__Dom__MutationObserver
 module MutationRecord = Webapi__Dom__MutationRecord