From fe12a78407a61c840b68614ae0bae3777bcac90d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 25 Aug 2014 17:49:05 +0300
Subject: [PATCH] Remove unnecessary database usage for view creation

---
 Application.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Application.hs b/Application.hs
index db3e6df..14072b2 100644
--- a/Application.hs
+++ b/Application.hs
@@ -172,8 +172,7 @@ makeFoundation useEcho conf = do
                     , ("no-bounds", viewNoBounds)
                     , ("unchanged", viewUnchanged)
                     ]
-            forM_ views $ \(name, func) ->
-                runResourceT $ flip (Database.Persist.runPool dbconf) p $ createView
+            forM_ views $ \(name, func) -> runResourceT $ createView
                     name
                     func
                     (sourceHistory uploadHistory)