haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-20 16:01:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove unnecessary database usage for view creation

Browse Source
This commit is contained in:
Michael Snoyman 2014-08-25 17:49:05 +03:00
parent af9a88444e
commit fe12a78407
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Application.hs
View File

@ -172,8 +172,7 @@ makeFoundation useEcho conf = do
, ("no-bounds", viewNoBounds) , ("no-bounds", viewNoBounds)
, ("unchanged", viewUnchanged) , ("unchanged", viewUnchanged)
] ]
forM_ views $ \(name, func) -> forM_ views $ \(name, func) -> runResourceT $ createView
runResourceT $ flip (Database.Persist.runPool dbconf) p $ createView
name name
func func
(sourceHistory uploadHistory) (sourceHistory uploadHistory)