Cleanup

src/Dodge/Data/CWorld.hs

@@ -40,8 +40,9 @@ data TimeFlowStatus
         , _scrollItemLocation :: Int
         }
     | RewindLeftClick
-        { _reverseAmount :: Int }
-
+        { _reverseAmount :: Int 
+        , _scrollItemLocation :: Int
+        }
 
 data CWGen = CWGen
     { _cwgParams :: GenParams

src/Dodge/Data/Input.hs

@@ -15,6 +15,13 @@ data PressType = InitialPress
     | LongPress
   deriving (Eq,Show)
 
+data MouseButtonInfo = MouseButtonInfo
+    { _mbHeldDown :: Bool
+    , _mbFlags :: [MouseButtonFlag]
+    }
+data MouseButtonFlag
+    = PressedStartRewind
+
 data Input = Input
     { _mousePos :: Point2
     , _mouseMoving :: Bool

src/Dodge/Data/Item/Use.hs

@@ -70,9 +70,9 @@ data AimStance
     --deriving (Eq, Show, Ord, Enum, Read) --Generic, Flat)
 
 data ItZoom = ItZoom
-    { _itZoomMax :: Float
-    , _itZoomMin :: Float
-    , _itZoomFac :: Float
+    { _izMax :: Float
+    , _izMin :: Float
+    , _izFac :: Float
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)