Remove reified impulses from creature record
This commit is contained in:
@@ -16,8 +16,8 @@ import Sound.Data
|
||||
data ActionPlan
|
||||
= Inanimate
|
||||
| ActionPlan
|
||||
{ _apImpulse :: [Impulse] -- done per frame
|
||||
, _apAction :: [Action] -- updated per frame, likely persist across frames
|
||||
{ -- _apImpulse :: [Impulse] -- done per frame
|
||||
_apAction :: [Action] -- updated per frame, likely persist across frames
|
||||
, _apStrategy :: Strategy -- current strategy
|
||||
, _apGoal :: [Goal] -- particular ordered goals
|
||||
}
|
||||
@@ -187,13 +187,6 @@ concat <$> mapM (deriveJSON defaultOptions)
|
||||
, ''Goal
|
||||
]
|
||||
|
||||
--deriveJSON defaultOptions ''Impulse
|
||||
--deriveJSON defaultOptions ''RandImpulse
|
||||
--deriveJSON defaultOptions ''Action
|
||||
--deriveJSON defaultOptions ''Strategy
|
||||
--deriveJSON defaultOptions ''ActionPlan
|
||||
--deriveJSON defaultOptions ''Goal
|
||||
|
||||
makeLenses ''ActionPlan
|
||||
makeLenses ''Impulse
|
||||
makeLenses ''Action
|
||||
|
||||
Reference in New Issue
Block a user