eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Pull out instance for hopefully more clarity

Browse source
This commit is contained in:
Erik Aker 2018-10-14 13:27:33 -07:00
parent 02da07f95f
commit bb365159f3
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/cookbook/testing/Testing.lhs
View file

@ -253,6 +253,9 @@ Imagine, then, that this is our real server implementation:
type DocApi = type DocApi =
"docs" :> Capture "docId" Integer :> Get '[JSON] Value "docs" :> Capture "docId" Integer :> Get '[JSON] Value
docsApp :: Text -> Text -> Application
docsApp esHost esPort = serve (Proxy :: Proxy DocApi) $ docServer esHost esPort
docServer :: Text -> Text -> Server DocApi docServer :: Text -> Text -> Server DocApi
docServer esHost esPort = getDocById esHost esPort docServer esHost esPort = getDocById esHost esPort
@ -330,7 +333,7 @@ Hopefully, this will simplify our testing code:
thirdPartyResourcesSpec :: Spec thirdPartyResourcesSpec :: Spec
thirdPartyResourcesSpec = around_ withElasticsearch $ do thirdPartyResourcesSpec = around_ withElasticsearch $ do
-- we call `with` from `hspec-wai` and pass *real* `Application` -- we call `with` from `hspec-wai` and pass *real* `Application`
with (pure $ serve (Proxy :: Proxy DocApi) $ docServer "localhost" "9999") $ do with (pure $ docsApp "localhost" "9999") $ do
describe "GET /docs" $ do describe "GET /docs" $ do
it "should be able to get a document" $ it "should be able to get a document" $
-- `get` is a function from hspec-wai`. -- `get` is a function from hspec-wai`.