Get rid of world hammers

src/Dodge/Data/Input.hs

@@ -5,7 +5,6 @@
 module Dodge.Data.Input where
 import Control.Lens
 import qualified Data.Map.Strict as M
-import Dodge.Data.CWorld
 import Geometry.Data
 import SDL (MouseButton, Scancode)
 
@@ -14,13 +13,6 @@ data PressType = InitialPress
     | LongPress
   deriving (Eq,Show)
 
-data MouseButtonInfo = MouseButtonInfo
-    { _mbHeldDown :: Bool
-    , _mbFlags :: [MouseButtonFlag]
-    }
-data MouseButtonFlag
-    = PressedStartRewind
-
 data Input = Input
     { _mousePos :: Point2
     , _mouseMoving :: Bool
@@ -28,7 +20,6 @@ data Input = Input
     , _mouseButtons :: M.Map MouseButton Bool -- shortpress False, repeatpress True
     , _scrollAmount         :: Int
     , _previousScrollAmount :: Int
-    , _hammers :: M.Map WorldHammer HammerPosition
     , _lLine :: (Point2, Point2)
     , _rLine :: (Point2, Point2)
     , _lrLine :: (Point2, Point2)
@@ -39,9 +30,4 @@ data Input = Input
     , _scrollTestValue :: Float
     }
 
-data WorldHammer
-    = SubInvHam
-    | DoubleMouseHam
-    deriving (Eq, Ord, Show, Read, Enum, Bounded)
-
 makeLenses ''Input