Fix code example in haddock of servant-mock

The example in the haddock does not coincide with the example code in servant-mock/example/main.hs
This commit is contained in:
Jonathan 2016-04-10 11:03:48 -05:00
parent 21822be75a
commit 23fb5e1f56

View File

@ -52,7 +52,7 @@
-- @
-- main :: IO ()
-- main = Network.Wai.Handler.Warp.run 8080 $
-- 'serve' myAPI ('mock' myAPI)
-- 'serve' myAPI ('mock' myAPI Proxy)
-- @
module Servant.Mock ( HasMock(..) ) where
@ -90,7 +90,7 @@ class HasServer api context => HasMock api context where
-- -- let's say we will start with the frontend,
-- -- and hence need a placeholder server
-- server :: Server API
-- server = mock api
-- server = mock api Proxy
-- @
--
-- What happens here is that @'Server' API@