diff options
| author | tv <tv@shackspace.de> | 2014-09-24 20:24:30 +0200 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-09-24 20:24:30 +0200 |
| commit | b4349c7ff2c7bf7ddd1ebbe5c22f457d40663199 (patch) | |
| tree | 7b888ef8aaf49c5b3a68c3280517852d95b43fad /Data | |
| parent | 993123c48eb9a11312e2645850ed70a886d76c21 (diff) | |
rename toIntmap to toIntMap
Diffstat (limited to 'Data')
| -rw-r--r-- | Data/XIntMap.hs | 8 |
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 |