mirror of https://github.com/voidlizard/hbs2
so far so good
This commit is contained in:
parent
c3891dbd11
commit
b8d5e9d5c5
|
@ -141,12 +141,12 @@ instance CookieGenerator Fake IO where
|
||||||
|
|
||||||
instance IsEncoded Fake (PingPong p) where
|
instance IsEncoded Fake (PingPong p) where
|
||||||
data instance Encoded Fake = PingPong p
|
data instance Encoded Fake = PingPong p
|
||||||
encode = undefined
|
encode = undefined -- WHAT
|
||||||
decode = undefined
|
decode = undefined -- WHAT
|
||||||
|
|
||||||
instance Messaging (Fabrique Fake) Fake (MessageWithCookie Fake) where
|
instance Messaging (Fabrique Fake) Fake (MessageWithCookie Fake) where
|
||||||
sendTo = undefined
|
sendTo (Fabrique bus) = sendTo bus
|
||||||
receive = undefined
|
receive (Fabrique bus) = receive bus
|
||||||
|
|
||||||
instance HasTimeout (PingPong Fake) IO where
|
instance HasTimeout (PingPong Fake) IO where
|
||||||
timeoutFor _ = pure 0.1
|
timeoutFor _ = pure 0.1
|
||||||
|
|
Loading…
Reference in New Issue