Add Store instances

src/Dodge/GameRoom.hs

@@ -7,6 +7,8 @@
 -- | GameRooms contain information about given positions in the world
 module Dodge.GameRoom where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Control.Lens
@@ -24,7 +26,7 @@ data GameRoom = GameRoom
     , _grName :: String
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary GameRoom 
+$($(derive [d| instance Deriving (Store GameRoom ) |]))
 
 instance ToJSON GameRoom where
     toEncoding = genericToEncoding defaultOptions