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