Fix broken doc tests in Internal/Auth.hs

2016-01-07 23:00:34 +01:00 · 2016-01-07 23:00:34 +01:00 · 08cfe21393
commit 08cfe21393
parent 4e6a6c0ce6
1 changed files with 2 additions and 2 deletions
--- a/servant-server/src/Servant/Server/Internal/Auth.hs
+++ b/servant-server/src/Servant/Server/Internal/Auth.hs
@ -29,8 +29,8 @@ data AuthResult usr
 -- * Basic Auth

 newtype BasicAuthCheck usr = BasicAuthCheck
-  { unBasicAuthCheck :: BS.ByteString  -- ^ Username
-                     -> BS.ByteString  -- ^ Password
+  { unBasicAuthCheck :: BS.ByteString  -- Username
+                     -> BS.ByteString  -- Password
                     -> IO (AuthResult usr)
  }
  deriving (Generic, Typeable, Functor)