Go back to JSON encoding
This commit is contained in:
@@ -5,9 +5,6 @@
|
||||
|
||||
module Dodge.Data.Button where
|
||||
|
||||
import TH.Derive
|
||||
import Data.Store
|
||||
import Data.Binary
|
||||
import Flat
|
||||
import LinearHelp ()
|
||||
import Color
|
||||
@@ -74,7 +71,3 @@ deriveJSON defaultOptions ''ButtonDraw
|
||||
deriveJSON defaultOptions ''ButtonEvent
|
||||
deriveJSON defaultOptions ''Button
|
||||
deriveJSON defaultOptions ''ButtonState
|
||||
$($(derive [d| instance Deriving (Store ButtonDraw) |]))
|
||||
$($(derive [d| instance Deriving (Store ButtonEvent) |]))
|
||||
$($(derive [d| instance Deriving (Store Button ) |]))
|
||||
$($(derive [d| instance Deriving (Store ButtonState ) |]))
|
||||
|
||||
Reference in New Issue
Block a user