fix: context semi should combine

2023-10-07 11:41:42 -05:00
parent 1eac99e0ba
commit 9977c83259
1 changed files with 1 additions and 1 deletions
--- 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