Refactor

src/Dodge/LevelGen/LineBlock.hs

@@ -1,28 +1,26 @@
+{- | Splits a line into many four cornered blocks. -}
 module Dodge.LevelGen.LineBlock
-    (putLineBlock
+    ( putLineBlock
     )
     where
 import Dodge.Data
 import Dodge.Base
 import Dodge.LevelGen.Pathing
-
 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
+-- | 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
-    -> Float    -- Block width
-    -> Float    -- Block depth
-    -> Point2   -- Start point (symmetric)
-    -> Point2   -- End point (symmetric)
+    :: Wall     -- ^ Base pane
+    -> Float    -- ^ Block width
+    -> Float    -- ^ Block depth
+    -> Point2   -- ^ Start point (symmetric)
+    -> Point2   -- ^ End point (symmetric)
     -> World 
     -> World
 putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr insertBlock w listBlocks
@@ -30,7 +28,7 @@ putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr i
     d = dist a b
     rot = argV (b -.- a)
     psOnLine = divideLineOddNumPoints blockWidth a b
-    halfBlockWidth = d / (fromIntegral $ length psOnLine - 1)
+    halfBlockWidth = d / fromIntegral (length psOnLine - 1)
     blockCenPs = snd $ evenOddSplit psOnLine
     numBlocks = length blockCenPs
     is = [0.. numBlocks - 1]