diff --git a/src/Container.hs b/src/Container.hs
index 74ce2b55ef9b594dae6217fed12aa655ed2b385a..d728238451f436e84de58866a25f005d8e59fafd 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