@@ -34,6 +34,7 @@ data Array a = Array
34fill : Int -> a -> Array a
34fill : Int -> a -> Array a
35fill len e = fromList <| List.map (always e) [1..len]
35fill len e = fromList <| List.map (always e) [1..len]
37+-- TODO: make this a native function.
37{-| Create an array from a list. -}
38{-| Create an array from a list. -}
38fromList : [a] -> Array a
39fromList : [a] -> Array a
39fromList = List.foldl (Native.Array.push) Native.Array.empty
40fromList = List.foldl (Native.Array.push) Native.Array.empty