From c110f29c8fb1cbaa4a4d142db6307c8c567750b9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 5 May 2020 00:53:46 +0200 Subject: [PATCH] port module Types.ObjClass --- src/Types/ObjClass.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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