Add Binary instances

src/Dodge/Data/Item/Effect.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Item.Effect where
 
+import Data.Binary
 import Flat
 import Control.Lens
 import Data.Aeson
@@ -18,6 +19,7 @@ data ItEffect = ItEffect
     , _ieOnStash :: ItInvEffect
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItEffect 
 
 data ItInvEffect
     = NoInvEffect
@@ -28,12 +30,15 @@ data ItInvEffect
     | RemoveShieldWall
     | EffectWhileHeld ItInvEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItInvEffect
 
 data ItFloorEffect = NoFloorEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItFloorEffect 
 
 data ItDropEffect = NoDropEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItDropEffect 
 
 makeLenses ''ItEffect
 deriveJSON defaultOptions ''ItEffect