From b86e60843f32d26a87ce93dbfaaafb72dd5d82f9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 4 Oct 2017 14:38:09 +0200 Subject: [PATCH] Minor cleanup --- src/Foundation.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index cfdceedea..7936a916f 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -214,9 +214,7 @@ instance YesodBreadcrumbs UniWorX where -- How to run database actions. instance YesodPersist UniWorX where type YesodPersistBackend UniWorX = SqlBackend - runDB action = do - master <- getYesod - runSqlPool action $ appConnPool master + runDB action = runSqlPool action =<< appConnPool <$> getYesod instance YesodPersistRunner UniWorX where getDBRunner = defaultGetDBRunner appConnPool