Separate out input datatype

src/Dodge/Data/Input.hs

@@ -0,0 +1,33 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Input where
+import Control.Lens
+import qualified Data.Map.Strict as M
+import qualified Data.Set as S
+import Dodge.Data.CWorld
+import Geometry.Data
+import SDL (MouseButton, Scancode)
+
+data Input = Input
+    { _mousePos :: Point2
+    , _keys :: S.Set Scancode
+    , _mouseButtons :: M.Map MouseButton Bool
+    , _scrollAmount         :: Int
+    , _previousScrollAmount :: Int
+    , _hammers :: M.Map WorldHammer HammerPosition
+    , _lLine :: (Point2, Point2)
+    , _rLine :: (Point2, Point2)
+    , _lrLine :: (Point2, Point2)
+    , _lSelect :: Point2
+    , _rSelect :: Point2
+    , _clickMousePos :: Point2
+    , _backspaceTimer :: Int
+    }
+data WorldHammer
+    = SubInvHam
+    | DoubleMouseHam
+    deriving (Eq, Ord, Show, Read, Enum, Bounded)
+
+makeLenses ''Input