Add IntMapHelper, locate wall cutting bug

src/Dodge/LevelGen/LineBlock.hs

@@ -8,9 +8,9 @@ import Dodge.Base
 import Dodge.LevelGen.Pathing
 --import Picture
 import Geometry
+import qualified IntMapHelp as IM
 
 import Control.Lens
-import qualified Data.IntMap as IM
 
 putLineBlock 
     :: Wall     -- ^ Base pane
@@ -37,7 +37,7 @@ putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr i
         ]
     cornersAt p = fmap ( (p +.+) . rotateV rot) cornerPoints
     linesAt p = makeLoopPairs $ cornersAt p
-    k = newKey $ _walls w
+    k = IM.newKey $ _walls w
     ksAtI i = map ( + (k + i*4) ) [0,1,2,3]
     visibilityAt i 
         | i == 0             = [ True,True,False,True]