Refactor, try to limit dependencies

src/Dodge/Data/Hammer.hs

@@ -1,23 +1,23 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
+
 module Dodge.Data.Hammer where
-import GHC.Generics
-import Data.Aeson
+
 import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+
 data HammerType
     = NoHammer
     | HasHammer {_hammerPosition :: HammerPosition}
-  deriving (Eq, Ord, Show,Read,Generic)
-instance ToJSON HammerType where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON HammerType
-data HammerPosition 
+    deriving (Eq, Ord, Show, Read)
+
+data HammerPosition
     = HammerDown
     | HammerReleased
     | HammerUp
-  deriving (Eq, Ord, Show,Read,Generic)
-instance ToJSON HammerPosition  where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON HammerPosition 
+    deriving (Eq, Ord, Show, Read)
+
 makeLenses ''HammerType
+deriveJSON defaultOptions ''HammerType
+deriveJSON defaultOptions ''HammerPosition