Add Binary instances

src/Dodge/Data/Machine.hs

@@ -13,6 +13,7 @@ module Dodge.Data.Machine (
     module Dodge.Data.GenParams,
 ) where
 
+import Data.Binary
 import Flat
 import LinearHelp ()
 import Color
@@ -47,6 +48,7 @@ data Machine = Machine
     }
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary Machine 
 
 data MachineType
     = McStatic
@@ -55,6 +57,7 @@ data MachineType
     | McTurret Turret
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary MachineType
 
 data Turret = Turret
     { _tuWeapon :: Item
@@ -64,6 +67,7 @@ data Turret = Turret
     }
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary Turret 
 
 makeLenses ''Machine
 makeLenses ''Turret