From b8d5e9d5c5ed94ec9cb47bc9a24be5d208136a5e Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 15 Jan 2023 13:19:06 +0300 Subject: [PATCH] so far so good --- hbs2-core/test/TestAbstractDispatch.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hbs2-core/test/TestAbstractDispatch.hs b/hbs2-core/test/TestAbstractDispatch.hs index 38f5e1c6..2e7fd118 100644 --- a/hbs2-core/test/TestAbstractDispatch.hs +++ b/hbs2-core/test/TestAbstractDispatch.hs @@ -141,12 +141,12 @@ instance CookieGenerator Fake IO where instance IsEncoded Fake (PingPong p) where data instance Encoded Fake = PingPong p - encode = undefined - decode = undefined + encode = undefined -- WHAT + decode = undefined -- WHAT instance Messaging (Fabrique Fake) Fake (MessageWithCookie Fake) where - sendTo = undefined - receive = undefined + sendTo (Fabrique bus) = sendTo bus + receive (Fabrique bus) = receive bus instance HasTimeout (PingPong Fake) IO where timeoutFor _ = pure 0.1