Fix docs: emptyAPIServer -> emptyServer (#1344)

2020-10-01 00:58:50 -07:00 · 2020-10-01 00:58:50 -07:00 · e364470dd9
commit e364470dd9
parent e3a29addf4
1 changed files with 2 additions and 2 deletions
--- a/servant-server/src/Servant/Server/Internal.hs
+++ b/servant-server/src/Servant/Server/Internal.hs
@ -750,12 +750,12 @@ data EmptyServer = EmptyServer deriving (Typeable, Eq, Show, Bounded, Enum)
 emptyServer :: ServerT EmptyAPI m
 emptyServer = Tagged EmptyServer

-- | The server for an `EmptyAPI` is `emptyAPIServer`.
+-- | The server for an `EmptyAPI` is `emptyServer`.
 --
 -- > type MyApi = "nothing" :> EmptyApi
 -- >
 -- > server :: Server MyApi
-- > server = emptyAPIServer
+-- > server = emptyServer
 instance HasServer EmptyAPI context where
  type ServerT EmptyAPI m = Tagged m EmptyServer