@@ -750,12 +750,12 @@ data EmptyServer = EmptyServer deriving (Typeable, Eq, Show, Bounded, Enum)
750750emptyServer :: ServerT EmptyAPI m
751751emptyServer = Tagged EmptyServer
752752
753−-- | The server for an `EmptyAPI` is `emptyAPIServer`.
753+-- | The server for an `EmptyAPI` is `emptyServer`.
754754--
755755-- > type MyApi = "nothing" :> EmptyApi
756756-- >
757757-- > server :: Server MyApi
758−-- > server = emptyAPIServer
758+-- > server = emptyServer
759759instance HasServer EmptyAPI context where
760760 type ServerT EmptyAPI m = Tagged m EmptyServer
761761