Commit before complicating zoning

src/Dodge/Base.hs

@@ -62,16 +62,6 @@ wedgeGeom t x y
   where 
     n a b = (t*0.5) *.* errorNormalizeV 4200 (vNormal (a -.- b))
 
-insertInZoneWith 
-    :: Int          -- ^ First Key
-    -> Int          -- ^ Second Key
-    -> (a -> a -> a) -- ^ Combining function
-    -> a            -- ^ Value to insert
-    -> IM.IntMap (IM.IntMap a) 
-    -> IM.IntMap (IM.IntMap a)
-insertInZoneWith x y fun obj = IM.insertWith f x $ IM.singleton y obj
-  where
-    f _ = IM.insertWith fun y obj
 {- | I believe this overwrites the value if it already exists, but not sure. -}
 insertIMInZone 
     :: Int      -- ^ First key