Go back to JSON encoding

src/Dodge/Data/HUD.hs

@@ -5,9 +5,6 @@
 
 module Dodge.Data.HUD where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -28,7 +25,6 @@ data SubInventory
     | LockedInventory
     | DisplayTerminal {_termID :: Int}
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store SubInventory) |]))
 
 data HUD = HUD
     { _hudElement :: HUDElement
@@ -37,7 +33,6 @@ data HUD = HUD
     , _carteRot :: Float
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store HUD ) |]))
 
 makeLenses ''HUD
 makeLenses ''HUDElement
@@ -45,4 +40,3 @@ makeLenses ''SubInventory
 deriveJSON defaultOptions ''HUDElement
 deriveJSON defaultOptions ''SubInventory
 deriveJSON defaultOptions ''HUD
-$($(derive [d| instance Deriving (Store HUDElement) |]))