fix: context semi should combine

This commit is contained in:
orion 2023-10-07 11:41:42 -05:00
parent 1eac99e0ba
commit 9977c83259
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -57,7 +57,7 @@ timeoutThrow t a = liftMaybe (error "timeout") =<< timeout t a
newtype Context (a :: Symbol) = Context (Unit -> Aff Unit)
instance Semigroup (Context a) where
append _ a = a
append (Context a) (Context b) = Context (b <=< a)
instance Monoid (Context a) where
mempty = Context $ const $ pure unit