tracer/src/Types/ObjClass.hs

30 lines
606 B
Haskell
Raw Normal View History

2018-08-10 06:58:26 +00:00
{-# LANGUAGE MultiParamTypeClasses #-}
2018-08-10 12:09:07 +00:00
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
2018-08-10 06:58:26 +00:00
module Types.ObjClass where
import Affection
import Data.Ecstasy
import Types.Entity
class ObjectAction otype ostate where
objectAction
:: Double
2018-08-10 06:58:26 +00:00
-> otype
-> ostate
-> Ent
2020-05-04 22:53:46 +00:00
-> SystemT Entity (AffectionState AffectionData IO) ()
2018-08-10 06:58:26 +00:00
objectTransition
:: otype
-> ostate
-> Bool
2018-08-10 06:58:26 +00:00
-> Ent
2018-09-12 22:51:22 +00:00
-> Maybe Ent
2020-05-04 22:53:46 +00:00
-> SystemT Entity (AffectionState AffectionData IO) (Entity 'SetterOf)
2018-08-10 06:58:26 +00:00
class ActionTime otype ostate where
actionTime :: otype -> ostate -> Double