diff --git a/src/Types/ObjClass.hs b/src/Types/ObjClass.hs index b4ead37..9413919 100644 --- a/src/Types/ObjClass.hs +++ b/src/Types/ObjClass.hs @@ -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