tracer/src/Types/ObjClass.hs
2020-05-05 00:53:46 +02:00

30 lines
606 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
module Types.ObjClass where
import Affection
import Data.Ecstasy
import Types.Entity
class ObjectAction otype ostate where
objectAction
:: Double
-> otype
-> ostate
-> Ent
-> SystemT Entity (AffectionState AffectionData IO) ()
objectTransition
:: otype
-> ostate
-> Bool
-> Ent
-> Maybe Ent
-> SystemT Entity (AffectionState AffectionData IO) (Entity 'SetterOf)
class ActionTime otype ostate where
actionTime :: otype -> ostate -> Double