Go back to JSON encoding

2022-08-21 21:23:59 +01:00
parent dd62e30026
commit f1ef75f511
95 changed files with 9 additions and 586 deletions
@@ -5,15 +5,11 @@

 module Dodge.Data.Material where

-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import Data.Aeson
 import Data.Aeson.TH

 data Material = Wood | Dirt | Stone | Glass | Metal | Crystal | Flesh | Electronics
    deriving (Eq, Ord, Show, Bounded, Enum, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store Material ) |]))

 deriveJSON defaultOptions ''Material