Cleanup warnings

src/Dodge/LevelGen/LineBlock.hs

@@ -6,14 +6,11 @@ module Dodge.LevelGen.LineBlock
 import Dodge.Data
 import Dodge.Base
 import Dodge.LevelGen.Pathing
-import Picture
+--import Picture
 import Geometry
 
 import Control.Lens
 import qualified Data.IntMap as IM
--- | Taken from online, splits a list into its even and odd elements
-evenOddSplit = foldr f ([],[])
-    where f a (ls,rs) = (rs, a : ls)
 
 putLineBlock 
     :: Wall     -- ^ Base pane
@@ -39,7 +36,7 @@ putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr i
         ,( halfBlockWidth,-depth)
         ]
     cornersAt p = fmap ( (p +.+) . rotateV rot) cornerPoints
-    linesAt p = map (\(a,b) -> (a,b)) $ makeLoopPairs $ cornersAt p
+    linesAt p = makeLoopPairs $ cornersAt p
     k = newKey $ _walls w
     ksAtI i = map ( + (k + i*4) ) [0,1,2,3]
     visibilityAt i 
@@ -52,13 +49,13 @@ putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr i
         | otherwise          = ksAtI (i-1) ++ ksAtI (i+1)
     makeBlockAt :: Point2 -> Int -> [Wall]
     makeBlockAt p i = zipWith3 (makePane i) (visibilityAt i) (ksAtI i) (linesAt p)
-    makePane i visStatus k' ps 
-          = basePane {_wlID = k'
-                     ,_wlLine = ps
-                     ,_blIDs = ksAtI i
-                     ,_blShadows = shadowsAt i
-                     ,_blVisible = visStatus
-                     }
+    makePane i visStatus k' ps = basePane 
+        {_wlID = k'
+        ,_wlLine = ps
+        ,_blIDs = ksAtI i
+        ,_blShadows = shadowsAt i
+        ,_blVisible = visStatus
+        }
     listBlocks = concat $ zipWith makeBlockAt blockCenPs is
     insertBlock :: Wall -> World -> World
     insertBlock wl = over walls $ IM.insert (_wlID wl) wl