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/Creature/Memory.hs
-4
View File
@@ -5,9 +5,6 @@
module Dodge.Data.Creature.Memory where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import LinearHelp ()
import Control.Lens
@@ -20,7 +17,6 @@ data Memory = Memory
, _nodesSearched :: [Int]
}
deriving (Eq, Ord, Show, Read, Generic, Flat)
$($(derive [d| instance Deriving (Store Memory ) |]))
makeLenses ''Memory
deriveJSON defaultOptions ''Memory
src/Dodge/Data/Creature/Misc.hs
-9
View File
@@ -8,9 +8,6 @@ module Dodge.Data.Creature.Misc (
module Dodge.Data.CamouflageStatus,
) where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import Color
import Control.Lens
@@ -90,9 +87,3 @@ deriveJSON defaultOptions ''CrMvType
deriveJSON defaultOptions ''HumanoidAI
deriveJSON defaultOptions ''CreatureType
deriveJSON defaultOptions ''BarrelType
$($(derive [d| instance Deriving (Store CrMvType) |]))
$($(derive [d| instance Deriving (Store HumanoidAI) |]))
$($(derive [d| instance Deriving (Store CreatureType) |]))
$($(derive [d| instance Deriving (Store BarrelType ) |]))
$($(derive [d| instance Deriving (Store CreatureStatistics ) |]))
$($(derive [d| instance Deriving (Store Vocalization) |]))
src/Dodge/Data/Creature/Perception.hs
-9
View File
@@ -23,9 +23,6 @@ module Dodge.Data.Creature.Perception (
auDist,
) where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import Control.Lens
import Data.Aeson
@@ -70,7 +67,6 @@ data Awareness
= Suspicious Float
| Cognizant Float
deriving (Eq, Ord, Show, Read, Generic, Flat)
$($(derive [d| instance Deriving (Store Awareness) |]))
makeLenses ''Perception
makeLenses ''Vision
@@ -82,8 +78,3 @@ deriveJSON defaultOptions ''Audition
deriveJSON defaultOptions ''Vigilance
deriveJSON defaultOptions ''Attention
deriveJSON defaultOptions ''Awareness
$($(derive [d| instance Deriving (Store Perception ) |]))
$($(derive [d| instance Deriving (Store Vision ) |]))
$($(derive [d| instance Deriving (Store Audition ) |]))
$($(derive [d| instance Deriving (Store Vigilance) |]))
$($(derive [d| instance Deriving (Store Attention) |]))
src/Dodge/Data/Creature/Stance.hs
-7
View File
@@ -5,9 +5,6 @@
module Dodge.Data.Creature.Stance where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import LinearHelp ()
import Control.Lens
@@ -44,7 +41,6 @@ data Posture
= Aiming
| AtEase
deriving (Eq, Ord, Show, Read, Generic, Flat)
$($(derive [d| instance Deriving (Store Posture) |]))
makeLenses ''Stance
makeLenses ''Carriage
@@ -53,6 +49,3 @@ deriveJSON defaultOptions ''Stance
deriveJSON defaultOptions ''Carriage
deriveJSON defaultOptions ''FootForward
deriveJSON defaultOptions ''Posture
$($(derive [d| instance Deriving (Store Stance ) |]))
$($(derive [d| instance Deriving (Store Carriage) |]))
$($(derive [d| instance Deriving (Store FootForward) |]))
src/Dodge/Data/Creature/State.hs
-8
View File
@@ -5,9 +5,6 @@
module Dodge.Data.Creature.State where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import Color
import Control.Lens
@@ -64,8 +61,3 @@ deriveJSON defaultOptions ''CreatureDropType
deriveJSON defaultOptions ''CrSpState
deriveJSON defaultOptions ''Faction
deriveJSON defaultOptions ''CrGroup
$($(derive [d| instance Deriving (Store CreatureState ) |]))
$($(derive [d| instance Deriving (Store CreatureDropType) |]))
$($(derive [d| instance Deriving (Store CrSpState) |]))
$($(derive [d| instance Deriving (Store Faction) |]))
$($(derive [d| instance Deriving (Store CrGroup) |]))