Remove generic and flat instances

src/Dodge/GameRoom.hs

@@ -7,9 +7,9 @@
 -- | GameRooms contain information about given positions in the world
 module Dodge.GameRoom where
 
-import Flat
 import Control.Lens
 import Data.Aeson
+import Data.Aeson.TH
 import Geometry
 import LinearHelp ()
 
@@ -22,11 +22,12 @@ data GameRoom = GameRoom
     , _grLinkDirs :: [Float]
     , _grName :: String
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --, Generic) --Generic, Flat)
 
-instance ToJSON GameRoom where
-    toEncoding = genericToEncoding defaultOptions
-
-instance FromJSON GameRoom
+--instance ToJSON GameRoom where
+--    toEncoding = genericToEncoding defaultOptions
+--
+--instance FromJSON GameRoom
 
 makeLenses ''GameRoom
+deriveJSON defaultOptions ''GameRoom