Cleanup

src/Dodge/Update/UsingInput.hs

@@ -1,8 +1,8 @@
-{-
-Functions that affect the world according to what pressed buttons are stored in a Set.
+{- Functions that affect the world according to what pressed buttons are stored in a Set.
 -}
 module Dodge.Update.UsingInput
-    where
+    ( updateUsingInput
+    ) where
 import Dodge.Data
 import Dodge.Item.Data
 import Dodge.Creature.Impulse.UseItem
@@ -13,8 +13,7 @@ import qualified Data.Set as S
 import Control.Lens
 
 updateUsingInput :: World -> World
-updateUsingInput w = 
-    if _carteDisplay w
+updateUsingInput w = if _carteDisplay w
     then updatePressedButtonsCarte (_mouseButtons w) w
     else updatePressedButtons (_mouseButtons w) w