summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-09-24 20:24:30 +0200
committertv <tv@shackspace.de>2014-09-24 20:24:30 +0200
commitb4349c7ff2c7bf7ddd1ebbe5c22f457d40663199 (patch)
tree7b888ef8aaf49c5b3a68c3280517852d95b43fad
parent993123c48eb9a11312e2645850ed70a886d76c21 (diff)
rename toIntmap to toIntMap
-rw-r--r--Data/XIntMap.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Data/XIntMap.hs b/Data/XIntMap.hs
index f261477..e02dae9 100644
--- a/Data/XIntMap.hs
+++ b/Data/XIntMap.hs
@@ -20,7 +20,7 @@ module Data.XIntMap (
empty,
freshkey,
freshkeys,
- toIntmap,
+ toIntMap,
size,
touched,
dirty,
@@ -69,7 +69,7 @@ intset_inserts list set =
data XIntMap a = XIntMap !(IntMap a) !Int !IntSet !IntSet
instance (Show a) => Show (XIntMap a) where
- show = show . toIntmap
+ show = show . toIntMap
-- | Delete a key from the 'XIntMap'.
delete :: Int -> XIntMap a -> XIntMap a
@@ -129,8 +129,8 @@ freshkeys k (XIntMap _m n free _h) = ks1 ++ ks2 where
ks2 = [n .. n+delta-1]
-- | Convert a 'XIntMap' to an 'IntMap'.
-toIntmap :: XIntMap a -> IntMap a
-toIntmap (XIntMap m _n _free _h) = m
+toIntMap :: XIntMap a -> IntMap a
+toIntMap (XIntMap m _n _free _h) = m
-- | Return the smallest key never used in the 'XIntMap'.
size :: XIntMap a -> Int