Minor cleanup

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