From b4349c7ff2c7bf7ddd1ebbe5c22f457d40663199 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 24 Sep 2014 20:24:30 +0200
Subject: rename toIntmap to toIntMap

---
 Data/XIntMap.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Data')

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
-- 
cgit v1.2.3