Remove obsolete comment
commit96ebc2beaa668bb47aaba048ffe19b57da0715e6
authorOwen Shepherd <414owen@gmail.com>
dateWed 22 Apr 2020, 13:28 (6 years ago)
parentf153389
src/Reflex/Requester/Base/Internal.hs+1−1
@@ -90,7 +90,7 @@ runRequesterT (RequesterT a) wrappedResponses = withRequesterInternalT $ \reques
9090 (_, tg) <- RequesterInternalT ask
9191 result <- a
9292 let responses = fforMaybe wrappedResponses $ \(ResponseData tg' m) -> case tg `geq` tg' of
93− Nothing -> trace ("runRequesterT: bad TagGen: expected " <> show tg <> " but got " <> show tg') Nothing --TODO: Warn somehow
93+ Nothing -> trace ("runRequesterT: bad TagGen: expected " <> show tg <> " but got " <> show tg') Nothing
9494 Just Refl -> Just m
9595 pure (responses, (result, fmapCheap (RequestData tg) requests))
9696