From 85006ff389188b56a8b61943621c190c9a9503b7 Mon Sep 17 00:00:00 2001 From: ros Date: Thu, 12 Aug 2021 12:06:49 +0200 Subject: [PATCH] feat(link password time): restore application --- src/Application.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index 001d87096..bcaf1edda 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -17,10 +17,9 @@ module Application ) where import Control.Monad.Logger (liftLoc, LoggingT(..), MonadLoggerIO(..)) -import Database.Persist.Postgresql ( openSimpleConn, pgConnStr, pgPoolIdleTimeout +import Database.Persist.Postgresql ( openSimpleConn, pgConnStr, connClose, pgPoolIdleTimeout , pgPoolSize ) -import Database.Persist.SqlBackend.Internal ( connClose ) import qualified Database.PostgreSQL.Simple as PG import Import hiding (cancel, respond) import Language.Haskell.TH.Syntax (qLocation) @@ -143,7 +142,6 @@ import Handler.Participants import Handler.StorageKey import Handler.Workflow import Handler.Error -import Handler.Upload -- This line actually creates our YesodDispatch instance. It is the second half @@ -709,4 +707,4 @@ addPWEntry :: User addPWEntry User{ userAuthentication = _, ..} (Text.encodeUtf8 -> pw) = db' $ do PWHashConf{..} <- getsYesod $ view _appAuthPWHash (AuthPWHash . Text.decodeUtf8 -> userAuthentication) <- liftIO $ makePasswordWith pwHashAlgorithm pw pwHashStrength - void $ insert User{..} \ No newline at end of file + void $ insert User{..}