diff --git a/Yesod/Helpers/Auth/Email.hs b/Yesod/Helpers/Auth/Email.hs
index 535486f9..0b1fadac 100644
--- a/Yesod/Helpers/Auth/Email.hs
+++ b/Yesod/Helpers/Auth/Email.hs
@@ -3,6 +3,7 @@ module Yesod.Helpers.Auth.Email
     ( authEmail
     , YesodAuthEmail (..)
     , EmailCreds (..)
+    , saltPass
     ) where
 
 import Yesod
@@ -231,6 +232,7 @@ postPasswordR = do
 saltLength :: Int
 saltLength = 5
 
+-- | Salt a password with a randomly generated salt.
 saltPass :: String -> IO String
 saltPass pass = do
     stdgen <- newStdGen