Add Binary instances

2022-08-21 10:58:19 +01:00
parent 386a2b4732
commit 1ce7d4a72d
95 changed files with 345 additions and 3 deletions
@@ -4,6 +4,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Dodge.Data.Item.Location where

+import Data.Binary
 import Flat
 import Control.Lens
 import Data.Aeson
@@ -15,6 +16,7 @@ data ItemLocation
    | OnFloor {_ipFlID :: Int}
    | InVoid
    deriving (Eq, Show, Read, Ord, Generic, Flat)
+instance Binary ItemLocation

 makeLenses ''ItemLocation
 deriveJSON defaultOptions ''ItemLocation