Fix haddock of send

This commit is contained in:
Andrzej Rybczak 2023-09-12 23:31:18 +02:00
parent dd33ceeb1c
commit e3971ce741

View File

@ -524,7 +524,7 @@ runHandler e m = unsafeEff $ \es0 -> do
send
:: (HasCallStack, DispatchOf e ~ Dynamic, e :> es)
=> e (Eff es) a
-- ^ The effect.
-- ^ The operation.
-> Eff es a
send op = unsafeEff $ \es -> do
Handler handlerEs handle <- getEnv es