Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix haddock errors.

  • Loading branch information...
commit 152527069943af6c95edf522adc11528917a5e8b 1 parent c6dd446
@mightybyte mightybyte authored
View
4 src/Snap/Snaplet/Auth.hs
@@ -79,7 +79,7 @@ import Snap.Snaplet.Session.SecureCookie
------------------------------------------------------------------------------
-- | Create a new user from just a username and password
--
--- May throw a "DuplicateLogin' if given username is not unique
+-- May throw a "DuplicateLogin" if given username is not unique
createUser
:: Text -- Username
-> ByteString -- Password
@@ -340,7 +340,7 @@ getSessionUserId = do
------------------------------------------------------------------------------
-- | Check password for a given user.
--
--- Returns 'Nothing" if check is successful and an 'IncorrectPassword' error
+-- Returns "Nothing" if check is successful and an "IncorrectPassword" error
-- otherwise
authenticatePassword
:: AuthUser -- ^ Looked up from the back-end
View
2  src/Snap/Snaplet/Auth/AuthManager.hs
@@ -32,7 +32,7 @@ import Snap.Snaplet.Auth.Types
------------------------------------------------------------------------------
-- | Create a new user from just a username and password
--
--- May throw a "DuplicateLogin' if given username is not unique
+-- May throw a "DuplicateLogin" if given username is not unique
createUser
:: (IAuthBackend r)
=> r
View
4 src/Snap/Snaplet/Auth/SpliceHelpers.hs
@@ -30,8 +30,8 @@ import Snap.Snaplet.Heist
-- | Add all standard auth splices to a Heist-enabled application.
--
-- This adds the following splices:
--- > <ifLoggedIn>
--- > <ifLoggedOut>
+-- \<ifLoggedIn\>
+-- \<ifLoggedOut\>
addAuthSplices
:: HasHeist b
=> Lens b (Snaplet (AuthManager b))
Please sign in to comment.
Something went wrong with that request. Please try again.