Refactor

src/Dodge/LevelGen/AutoDoor.hs

@@ -1,4 +1,4 @@
-{-
+{- |
 Creation of doors that open when creatures approach them.
  -}
 {-# LANGUAGE BangPatterns #-}
@@ -68,11 +68,12 @@ mkAutoDoor pl pr xs = addSound $ zipWith3 (autoDoorPane (pl,pr))
 
     addSound (x:xs) = f x : xs
     f wl = over doorMech g wl
-    g dm w | dist wp pld > 2 && dist wp hwd > 2 
-              = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0 $ dm w
-           | otherwise = dm w
+    g dm w 
+        | dist wp pld > 2 && dist wp hwd > 2 
+            = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0 $ dm w
+        | otherwise = dm w
       where 
-        wp = snd (_wlLine $ _walls w IM.! (head xs))
+        wp = snd (_wlLine $ _walls w IM.! head xs)
 
 autoDoorPane 
     :: (Point2,Point2)  -- ^ Trigger line