------------------------------------------------------------
handleSql :: SqlPersistM a -> Handler b (Authentication b) a
handleSql sql = do
  connection <- getConnection
  liftIO $ runSqlPersistMPool sql connection
handleSql :: SqlPersistM a -> Handler b (Authentication b) a
handleSql sql = do
  connection <- getConnection
  liftIO $ runSqlPersistMPool sql connection
handleSql sql = do
  connection <- getConnection
  liftIO $ runSqlPersistMPool sql connection