Linting, refactor random angle walk for flamer

src/Dodge/Event.hs

@@ -67,7 +67,7 @@ handleMouseWheelEvent mwev w = case _menuLayers w of
                | otherwise  -> Just w
    _ -> Just w
 
-{-
+{- |
 Resets the world window size, and resizes the fbo that gets the light map drawn into it.
  -}
 handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
@@ -122,14 +122,16 @@ wheelDownEvent w = case _carteDisplay w of
 
 upInvPos :: World -> World
 upInvPos w = stopSoundFrom (CrReloadSound 0) $ set (creatures . ix (_yourID w) . crInvSel) x w
-    where is = IM.keys $ _crInv $ _creatures w IM.! _yourID w
-          isis = is ++ is
-          x = before (_crInvSel (you w)) isis
+  where 
+    is = IM.keys $ _crInv $ _creatures w IM.! _yourID w
+    isis = is ++ is
+    x = before (_crInvSel (you w)) isis
 downInvPos :: World -> World
 downInvPos w = stopSoundFrom (CrReloadSound 0) $ set (creatures . ix (_yourID w) . crInvSel) x w
-    where is = IM.keys $ _crInv $ _creatures w IM.! _yourID w
-          isis = is ++ is
-          x = after (_crInvSel (you w)) isis
+  where 
+    is = IM.keys $ _crInv $ _creatures w IM.! _yourID w
+    isis = is ++ is
+    x = after (_crInvSel (you w)) isis
 
 -- these are incomplete: should put in error case here!
 before y (x:z:ys) | y == z    = x