Merge pull request #8 from BebeSparkelSparkel/master

items :: FileList -> Array File

Author: garyb

src/Web/File/FileList.purs

@@ -2,13 +2,16 @@ module Web.File.FileList
   ( FileList
   , length
   , item
+  , items
   ) where
 
 import Prelude
 
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable, toMaybe)
+import Data.Tuple (Tuple(..))
 import Web.File.File (File)
+import Data.Unfoldable (class Unfoldable, unfoldr)
 
 foreign import data FileList :: Type
 
@@ -20,3 +23,7 @@ foreign import _item :: Int -> FileList -> Nullable File
 -- | Get `File` at the certain position
 item :: Int -> FileList -> Maybe File
 item i = toMaybe <<< _item i
+
+items :: forall t. Unfoldable t => FileList -> t File
+items fl = unfoldr (\i -> (flip Tuple (i + 1)) <$> item i fl) 0
+