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{..}