Go back to JSON encoding
This commit is contained in:
@@ -5,9 +5,6 @@
|
||||
|
||||
module Dodge.Data.Machine.Sensor where
|
||||
|
||||
import TH.Derive
|
||||
import Data.Store
|
||||
import Data.Binary
|
||||
import Flat
|
||||
import LinearHelp ()
|
||||
import Dodge.Data.GenParams
|
||||
@@ -48,6 +45,3 @@ makeLenses ''ProximityRequirement
|
||||
deriveJSON defaultOptions ''Sensor
|
||||
deriveJSON defaultOptions ''ProximityRequirement
|
||||
deriveJSON defaultOptions ''CloseToggle
|
||||
$($(derive [d| instance Deriving (Store Sensor) |]))
|
||||
$($(derive [d| instance Deriving (Store ProximityRequirement) |]))
|
||||
$($(derive [d| instance Deriving (Store CloseToggle ) |]))
|
||||
|
||||
Reference in New Issue
Block a user