Cleanup enough to make haddock work

src/Dodge/AIs.hs

@@ -1587,7 +1587,7 @@ basicShooterAI w (f,g) cr =
                             -> ( (f , g)
                                , Just $ turnCloseSlow ypos cr
                                )  -- no longer chase if see you when reloading
-                                                    -- $ replaceAction [] w
+                                                    -- -$ replaceAction [] w
                        | otherwise -> ( (f , g) , Just cr)
         (Search i:gls) | i == 0 -> ( (f , g) , replaceAction [] cr)
                        | otherwise 

src/Dodge/Item/Weapon.hs

@@ -929,7 +929,7 @@ reflect a b = a + 2*(a-b)
 moveGrenade :: Int -> Float -> Int -> World -> World
 moveGrenade 0 dir pID w = over projectiles (IM.delete pID) 
                             $ explosion (_pjPos (_projectiles w IM.! pID)) 
-                            -- $ set (pointToItem (_itemPositions w IM.! wpID) . itEquipPict) 
+                            -- set (pointToItem (_itemPositions w IM.! wpID) . itEquipPict) 
                             --      (drawWeapon $ grenadePic 50)
                             w
   where
@@ -1493,7 +1493,7 @@ explodeRemoteBomb itid pjid n w
         $ resetPict
 --        $ resetScope
         $ makeExplosionAt (_pjPos (_projectiles w IM.! pjid)) w
-        -- $ makeShrapnelBombAt (_pjPos (_projectiles w IM.! pjid)) w
+        -- - $ makeShrapnelBombAt (_pjPos (_projectiles w IM.! pjid)) w
   where 
     resetName = set (creatures . ix n . crInv . ix j . itName) "REMOTEBOMB"
     resetPict = set (creatures . ix n . crInv . ix j . itEquipPict ) 

src/Dodge/Layout.hs

@@ -67,7 +67,7 @@ wallsFromTree t =
 --    createInnerWalls 
     divideWalls 
     . assignKeys 
-    . foldr cutWalls [] -- $ map (map (g . roundPoint2)) 
+    . foldr cutWalls [] -- map (map (g . roundPoint2)) 
 --    . map (map roundPoint2)
     $ (concatMap _rmPolys $ flatten t)
   where