Attempt to make CWorld correct instance of Store

2022-08-20 15:53:37 +01:00
parent e1a555ea02
commit 8571ab9254
89 changed files with 570 additions and 19 deletions
@@ -6,9 +6,12 @@ module Dodge.Data.CrWlID where
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
+import TH.Derive
+import Data.Store

 data CrWlID = CrID Int | WlID Int | NothingID -- TODO rewrite/remove this
    deriving (Eq, Ord, Show, Read)

 makeLenses ''CrWlID
 deriveJSON defaultOptions ''CrWlID
+$($(derive [d| instance Deriving (Store CrWlID) |]))