Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Export withBackend

  • Loading branch information...
commit 1bc16fba06b5b8b2e69c1197a6d283c9e011ad70 1 parent 276cd85
@ozataman ozataman authored
Showing with 6 additions and 6 deletions.
  1. +5 −4 src/Snap/Snaplet/Auth.hs
  2. +1 −2  src/Snap/Snaplet/Auth/Handlers.hs
View
9 src/Snap/Snaplet/Auth.hs
@@ -48,6 +48,7 @@ module Snap.Snaplet.Auth
, Role(..)
-- * Other Utilities
+ , withBackend
, encryptPassword
, checkPassword
, authenticatePassword
@@ -66,8 +67,8 @@ module Snap.Snaplet.Auth
)
where
-import Snap.Snaplet.Auth.AuthManager
-import Snap.Snaplet.Auth.Handlers
-import Snap.Snaplet.Auth.SpliceHelpers
-import Snap.Snaplet.Auth.Types
+import Snap.Snaplet.Auth.AuthManager
+import Snap.Snaplet.Auth.Handlers
+import Snap.Snaplet.Auth.SpliceHelpers
+import Snap.Snaplet.Auth.Types
View
3  src/Snap/Snaplet/Auth/Handlers.hs
@@ -260,7 +260,6 @@ forceLogin u = do
AuthError "forceLogin: Can't force the login of a user without userId"
-
------------------------------------------------------------------------------
-- Internal, non-exported helpers
--
@@ -341,7 +340,6 @@ cacheOrLookup f = do
return au'
-
------------------------------------------------------------------------------
-- | Register a new user by specifying login and password 'Param' fields
registerUser
@@ -413,6 +411,7 @@ requireUser auth bad good = do
loggedIn <- withTop auth isLoggedIn
if loggedIn then good else bad
+
------------------------------------------------------------------------------
-- | Run a function on the backend, and return the result.
--
Please sign in to comment.
Something went wrong with that request. Please try again.