From 9977c83259d3be826ad3aaa426efdb7cac85928a Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Sat, 7 Oct 2023 11:41:42 -0500 Subject: [PATCH] fix: context semi should combine --- src/Puppeteer.Base.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Puppeteer.Base.purs b/src/Puppeteer.Base.purs index 4ffd1e6..9659aca 100644 --- a/src/Puppeteer.Base.purs +++ b/src/Puppeteer.Base.purs @@ -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