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