Verified Commit 31ebb3ec authored by Bryan's avatar Bryan

Remove dead code

parent 1978c533
......@@ -285,12 +285,6 @@ genVerificationToken :: Credentials -> IO Verification
genVerificationToken Credentials{..} =
Verification credsIdent . AuthToken <$> nonce128urlT tokenGenerator
-- | Insert a new user into the database.
privilegedCreateUser :: MonadIO m => VerifiedUser -> SqlPersistT m ()
privilegedCreateUser VerifiedUser{..} = do
now <- liftIO getCurrentTime
insert_ (User verifiedEmail verifiedDigest now now)
-- | Create a new user for testing or development purposes. Does nothing if a
-- user with the given email already exists.
privilegedCreateUserBypass :: MonadIO m
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment