justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Go back to JSON encoding

Browse Source
This commit is contained in:
justin
2022-08-21 21:23:59 +01:00
parent dd62e30026
commit f1ef75f511
95 changed files with 9 additions and 586 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Wall.hs
-8
View File
@@ -8,9 +8,6 @@ module Dodge.Data.Wall (
module Dodge.Data.Material,
) where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import LinearHelp ()
import Color
@@ -49,7 +46,6 @@ data Opacity
deriving (Eq, Ord, Show, Read, Generic, Flat)
data WallDraw = DrawForceField
| HackWallDraw
deriving (Eq, Ord, Show, Read, Enum, Bounded, Generic, Flat)
data WallStructure
@@ -69,7 +65,3 @@ deriveJSON defaultOptions ''Wall
deriveJSON defaultOptions ''Opacity
deriveJSON defaultOptions ''WallDraw
deriveJSON defaultOptions ''WallStructure
$($(derive [d| instance Deriving (Store Wall ) |]))
$($(derive [d| instance Deriving (Store Opacity) |]))
$($(derive [d| instance Deriving (Store WallDraw ) |]))
$($(derive [d| instance Deriving (Store WallStructure) |]))