Cleanup

src/Dodge/Data/Input.hs

@@ -9,14 +9,6 @@ import Control.Lens
 import qualified Data.Map.Strict as M
 import Geometry.Data
 import SDL (MouseButton, Scancode)
-import Data.Aeson
-import Data.Aeson.TH
-
---data PressType
---    = InitialPress Int
---    | ShortPress Int
---    | LongPress Int
---    deriving (Eq, Show)
 
 data MouseContext
     = NoMouseContext
@@ -72,4 +64,3 @@ data TermSignal
 
 makeLenses ''Input
 makeLenses ''MouseContext
---deriveJSON defaultOptions ''PressType