feat(link password time): restore application

This commit is contained in:
ros 2021-08-12 12:06:49 +02:00
parent df2a9bc20f
commit 85006ff389

View File

@ -17,10 +17,9 @@ module Application
) where ) where
import Control.Monad.Logger (liftLoc, LoggingT(..), MonadLoggerIO(..)) import Control.Monad.Logger (liftLoc, LoggingT(..), MonadLoggerIO(..))
import Database.Persist.Postgresql ( openSimpleConn, pgConnStr, pgPoolIdleTimeout import Database.Persist.Postgresql ( openSimpleConn, pgConnStr, connClose, pgPoolIdleTimeout
, pgPoolSize , pgPoolSize
) )
import Database.Persist.SqlBackend.Internal ( connClose )
import qualified Database.PostgreSQL.Simple as PG import qualified Database.PostgreSQL.Simple as PG
import Import hiding (cancel, respond) import Import hiding (cancel, respond)
import Language.Haskell.TH.Syntax (qLocation) import Language.Haskell.TH.Syntax (qLocation)
@ -143,7 +142,6 @@ import Handler.Participants
import Handler.StorageKey import Handler.StorageKey
import Handler.Workflow import Handler.Workflow
import Handler.Error import Handler.Error
import Handler.Upload
-- This line actually creates our YesodDispatch instance. It is the second half -- This line actually creates our YesodDispatch instance. It is the second half