Add Binary instances

src/Dodge/Data/CWorld.hs

@@ -48,6 +48,7 @@ module Dodge.Data.CWorld (
     module Dodge.Data.WorldEffect,
 ) where
 
+import Data.Binary
 import Flat
 import Control.Lens
 import Data.Aeson
@@ -114,6 +115,7 @@ data CWCam = CWCam
     , _cwcBoundDist :: (Float, Float, Float, Float) -- NSEW, S and W negative
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CWCam 
 
 data CWorld = CWorld
     --{ _cameraCenter :: Point2
@@ -189,6 +191,7 @@ data CWorld = CWorld
     }
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary CWorld 
 
 data CWTime = CWTime
     { _maybeWorld :: Maybe' CWorld
@@ -198,6 +201,7 @@ data CWTime = CWTime
     }
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary CWTime 
     
 
 data CWGen = CWGen
@@ -208,6 +212,7 @@ data CWGen = CWGen
     , _cwgSeed :: Int
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CWGen 
 
 data WorldBeams = WorldBeams
     { _blockingBeams :: [Beam]
@@ -216,6 +221,7 @@ data WorldBeams = WorldBeams
     , _electronBeams :: [Beam]
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WorldBeams 
 
 deriveJSON defaultOptions ''CWorld
 deriveJSON defaultOptions ''WorldBeams