Remove generic and flat instances

src/Dodge/Data/Shockwave.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Shockwave where
 
-import Flat
 import Color
 import Control.Lens
 import Data.Aeson
@@ -13,7 +12,7 @@ import Data.Aeson.TH
 import Geometry.Data
 
 data ShockwaveDirection = OutwardShockwave | InwardShockwave
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Shockwave = Shockwave
     { _swColor :: Color
@@ -26,7 +25,7 @@ data Shockwave = Shockwave
     , _swMaxTime :: Int
     , _swTimer :: Int
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Shockwave
 deriveJSON defaultOptions ''ShockwaveDirection