From 1fd47ca2535088a05593add56a42b03fa991af96 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Sun, 15 Feb 2009 14:40:13 +0100
Subject: [PATCH] Container: add a 'keys' function
---
src/Container.hs | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/Container.hs b/src/Container.hs
index 74ce2b55e..d72823845 100644
--- a/src/Container.hs
+++ b/src/Container.hs
@@ -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
--
GitLab