Skip to content

Commit b322228

Browse files
generalized array to unfoldable
1 parent 7e4b8ae commit b322228

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Web/File/FileList.purs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ import Data.Maybe (Maybe)
1111
import Data.Nullable (Nullable, toMaybe)
1212
import Data.Tuple (Tuple(..))
1313
import Web.File.File (File)
14-
import Data.Unfoldable (unfoldr)
14+
import Data.Unfoldable (class Unfoldable, unfoldr)
1515

1616
foreign import data FileList :: Type
1717

@@ -24,6 +24,6 @@ foreign import _item :: Int -> FileList -> Nullable File
2424
item :: Int -> FileList -> Maybe File
2525
item i = toMaybe <<< _item i
2626

27-
items :: FileList -> Array File
27+
items :: forall t. Unfoldable t => FileList -> t File
2828
items fl = unfoldr (\i -> (flip Tuple (i + 1)) <$> item i fl) 0
2929

0 commit comments

Comments
 (0)