port module Types.ObjClass

This commit is contained in:
nek0 2020-05-05 00:53:46 +02:00
parent 55f688e9be
commit c110f29c8f

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