From 81e16c4428f92de6232b5ac4938322affe378b86 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 5 May 2020 06:31:36 +0200 Subject: [PATCH] bump module NPC to affection 0.0.0.10 --- src/NPC.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/NPC.hs b/src/NPC.hs index 7b83763..4396c3d 100644 --- a/src/NPC.hs +++ b/src/NPC.hs @@ -33,7 +33,7 @@ import Object () getPosBounds :: SystemT Entity - (AffectionState (AffectionData UserData) IO) + (AffectionState AffectionData IO) [(V2 Double, Boundaries Double)] getPosBounds = do efor allEnts $ do @@ -47,10 +47,10 @@ getPosBounds = do updateNPCs :: M.Matrix (Maybe ImgId) -> M.Matrix TileState - -> SystemState Entity (AffectionState (AffectionData UserData) IO) + -> SystemState Entity (AffectionState AffectionData IO) -> V.Vector ReachPoint -> Double - -> SystemT Entity (AffectionState (AffectionData UserData) IO) () + -> SystemT Entity (AffectionState AffectionData IO) () updateNPCs imgmat tsmat ws rrp dt = do updateStats dt posbounds <- getPosBounds @@ -263,7 +263,7 @@ standStill imgmat tsmat pos' rot' ws posbounds rp = do updateStats :: Double - -> SystemT Entity (AffectionState (AffectionData UserData) IO) () + -> SystemT Entity (AffectionState AffectionData IO) () updateStats dt = emap allEnts $ do with npcStats