@@ -53,8 +53,6 @@ import Data.Sequence (Seq)
5353import Data.Tuple
5454import qualified Data.TagMap as TagMap
5555
56−import Debug.Trace
57−
5856-- | A function that fires events for the given 'EventTrigger's and then runs
5957-- any followup actions provided via 'PerformEvent'. The given 'ReadPhase'
6058-- action will be run once for the initial trigger execution as well as once for
@@ -185,8 +183,8 @@ hostPerformEventT :: forall t m a.
185183 -> m (a, FireCommand t m)
186184hostPerformEventT a = do
187185 (response, responseTrigger) <- newEventWithTriggerRef
188− (result, eventToPerform) <- runHostFrame $ runRequesterT (unPerformEventT a) $ traceEventWith (const "response") response
189− eventToPerformHandle <- subscribeEvent $ traceEventWith (const "eventToPerform") eventToPerform
186+ (result, eventToPerform) <- runHostFrame $ runRequesterT (unPerformEventT a) response
187+ eventToPerformHandle <- subscribeEvent eventToPerform
190188 return $ (,) result $ FireCommand $ \triggers (readPhase :: ReadPhase m a') -> do
191189 let go :: [DSum (EventTrigger t) Identity] -> m [a']
192190 go ts = do
@@ -197,20 +195,13 @@ hostPerformEventT a = do
197195 case mToPerform of
198196 Nothing -> return [result']
199197 Just toPerform -> do
200− traceM $ "toPerform: " <> case toPerform of
201− RequestData _ reqs -> show (length reqs)
202198 responses <- runHostFrame $ traverseRequesterData (Identity <$>) toPerform
203199 let responseLength = case responses of
204200 ResponseData _ m -> TagMap.size m
205− traceM $ "responses: " <> show responseLength
206201 mrt <- readRef responseTrigger
207202 let followupEventTriggers = case mrt of
208− Just rt -> do
209− traceM "a"
210− [rt :=> Identity responses]
211− Nothing -> do
212− traceM "b"
213− []
203+ Just rt -> [rt :=> Identity responses]
204+ Nothing -> []
214205 (result':) <$> go followupEventTriggers
215206 go triggers
216207