Add Binary instances

src/Dodge/Data/WorldEffect.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.WorldEffect where
 
+import Data.Binary
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
@@ -18,6 +19,7 @@ data ItCrWdWd
     = ItCrWdId
     | ItCrWdItemEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItCrWdWd
 
 data WdWd
     = NoWorldEffect
@@ -34,11 +36,13 @@ data WdWd
     | WdWdFromItCrixWdWd Item Int ItCrWdWd
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary WdWd
 
 data WdP2
     = WdP2Const Point2
     | WdYouPos
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WdP2
 
 data MdWdWd
     = MdWdId
@@ -46,6 +50,7 @@ data MdWdWd
     | MdSetLSCol Point3
     | MdFlickerUpdate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary MdWdWd
 
 data WdBl
     = WdTrig Int
@@ -56,11 +61,13 @@ data WdBl
     | WdBlBtOn Int
     | WdBlBtNotOff Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WdBl
 
 data WdP2f
     = WdP2f0
     | WdP2fDoorPosition Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WdP2f
 
 data DrWdWd
     = DrWdId
@@ -68,6 +75,7 @@ data DrWdWd
     | DrWdMechanismStepwise Int [Int] [(Point2, Point2)]
     | DoorMechanism
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary DrWdWd
 
 data TmWdWd
     = TmWdId
@@ -77,6 +85,7 @@ data TmWdWd
     | TmWdWdDoDeathTriggers
     deriving (Eq, Show, Read, Generic)
     --hderiving (Eq, Show, Read, Generic, Flat)
+    --instance Binary TmWdWd
 
 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd