<div dir="ltr" class="gmail_msg">Hi,<div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">I have got a typeclass (MonadResource) that represents a client side rest resource and encapsulates http interaction with a server.</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Inside a `runResource` I want to do arbitrary calls to the server.</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">I have a separate implementation running in `runResourceStub` that is a fake implementation allowing for tests that don't need a real server.</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">I am unsure how to (best) integrate that with HSpec.</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">```</div><div class="gmail_msg">it "can create related backend resources" $ do</div><div class="gmail_msg">  runResourceStub $ do</div><div class="gmail_msg">    pod <- createPod "my-pod" ...</div><div class="gmail_msg">    secret <- createSecret... </div><div class="gmail_msg">    (getPod secret) `shouldBe` pod</div><div class="gmail_msg">```</div><div class="gmail_msg"><br></div><div class="gmail_msg">That is what I would like to do. How do I do it? What else should I consider doing? </div><div class="gmail_msg"><br></div><div class="gmail_msg">Best</div><div class="gmail_msg">Jan</div></div>