nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

port module Types.ObjClass

Browse source
This commit is contained in:
nek0 2020-05-05 00:53:46 +02:00
parent 55f688e9be
commit c110f29c8f
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Types/ObjClass.hs
View file

@ -8,8 +8,6 @@ import Affection
import Data.Ecstasy
import Types.Entity
import Types.UserData
import Types.Direction
class ObjectAction otype ostate where
objectAction
@ -17,7 +15,7 @@ class ObjectAction otype ostate where
-> otype
-> ostate
-> Ent
-> SystemT Entity (AffectionState (AffectionData UserData) IO) ()
-> SystemT Entity (AffectionState AffectionData IO) ()
objectTransition
:: otype
@ -25,7 +23,7 @@ class ObjectAction otype ostate where
-> Bool
-> Ent
-> Maybe Ent
-> SystemT Entity (AffectionState (AffectionData UserData) IO) (Entity 'SetterOf)
-> SystemT Entity (AffectionState AffectionData IO) (Entity 'SetterOf)
class ActionTime otype ostate where
actionTime :: otype -> ostate -> Double