Commit 1fd47ca2 authored by Iustin Pop's avatar Iustin Pop
Browse files

Container: add a 'keys' function

parent d4f62d4e
......@@ -21,6 +21,7 @@ module Container
, remove
-- * Conversion
, elems
, keys
) where
import qualified Data.IntMap as IntMap
......@@ -56,6 +57,10 @@ remove = IntMap.delete
elems :: Container a -> [a]
elems = IntMap.elems
-- | Return the list of keys in the map.
keys :: Container a -> [Key]
keys = IntMap.keys
-- | Create a map from an association list.
fromAssocList :: [(Key, a)] -> Container a
fromAssocList = IntMap.fromList
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment