Add IsForeign instance for FileList

Author: jacereda

src/DOM/File/Types.purs

@@ -1,6 +1,8 @@
 module DOM.File.Types where
 
 import DOM.Event.Types (EventTarget)
+import Data.Foreign (Foreign, F, unsafeReadTagged)
+import Data.Foreign.Class (class IsForeign)
 import Unsafe.Coerce (unsafeCoerce)
 
 foreign import data Blob :: *
@@ -15,3 +17,9 @@ fileToBlob = unsafeCoerce
 
 fileReaderToEventTarget :: FileReader -> EventTarget
 fileReaderToEventTarget = unsafeCoerce
+
+readFileList :: Foreign -> F FileList
+readFileList = unsafeReadTagged "FileList"
+
+instance isForeignFileList :: IsForeign FileList where
+  read = readFileList