Add Store instances
This commit is contained in:
@@ -5,6 +5,8 @@
|
||||
|
||||
module Dodge.Data.CamouflageStatus where
|
||||
|
||||
import TH.Derive
|
||||
import Data.Store
|
||||
import Data.Binary
|
||||
import Flat
|
||||
import Data.Aeson
|
||||
@@ -14,6 +16,6 @@ data CamouflageStatus
|
||||
= FullyVisible
|
||||
| Invisible
|
||||
deriving (Eq, Ord, Enum, Read, Show, Bounded, Generic, Flat)
|
||||
instance Binary CamouflageStatus
|
||||
$($(derive [d| instance Deriving (Store CamouflageStatus) |]))
|
||||
|
||||
deriveJSON defaultOptions ''CamouflageStatus
|
||||
|
||||
Reference in New Issue
Block a user