We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7e4b8ae commit b322228Copy full SHA for b322228
src/Web/File/FileList.purs
@@ -11,7 +11,7 @@ import Data.Maybe (Maybe)
11
import Data.Nullable (Nullable, toMaybe)
12
import Data.Tuple (Tuple(..))
13
import Web.File.File (File)
14
-import Data.Unfoldable (unfoldr)
+import Data.Unfoldable (class Unfoldable, unfoldr)
15
16
foreign import data FileList :: Type
17
@@ -24,6 +24,6 @@ foreign import _item :: Int -> FileList -> Nullable File
24
item :: Int -> FileList -> Maybe File
25
item i = toMaybe <<< _item i
26
27
-items :: FileList -> Array File
+items :: forall t. Unfoldable t => FileList -> t File
28
items fl = unfoldr (\i -> (flip Tuple (i + 1)) <$> item i fl) 0
29
0 commit comments