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

Fix docs: emptyAPIServer -> emptyServer (#1344)

Browse source
This commit is contained in:
Brandon Chinn 2020-10-01 00:58:50 -07:00 committed by GitHub
parent e3a29addf4
commit e364470dd9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-server/src/Servant/Server/Internal.hs
View file

@ -750,12 +750,12 @@ data EmptyServer = EmptyServer deriving (Typeable, Eq, Show, Bounded, Enum)
emptyServer :: ServerT EmptyAPI m emptyServer :: ServerT EmptyAPI m
emptyServer = Tagged EmptyServer emptyServer = Tagged EmptyServer
-- | The server for an `EmptyAPI` is `emptyAPIServer`. -- | The server for an `EmptyAPI` is `emptyServer`.
-- --
-- > type MyApi = "nothing" :> EmptyApi -- > type MyApi = "nothing" :> EmptyApi
-- > -- >
-- > server :: Server MyApi -- > server :: Server MyApi
-- > server = emptyAPIServer -- > server = emptyServer
instance HasServer EmptyAPI context where instance HasServer EmptyAPI context where
type ServerT EmptyAPI m = Tagged m EmptyServer type ServerT EmptyAPI m = Tagged m EmptyServer