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

Temporarily disable view generation

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-17 14:22:52 +02:00
parent 17c44751be
commit d25939ccb7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Application.hs
View File

@ -264,6 +264,7 @@ appLoadCabalFiles env dbconf p = do
runDB' $ forM_ newMD $ \x -> do runDB' $ forM_ newMD $ \x -> do
deleteBy $ UniqueMetadata $ metadataName x deleteBy $ UniqueMetadata $ metadataName x
insert_ x insert_ x
{-
let views = let views =
[ ("pvp", viewPVP uploadHistory) [ ("pvp", viewPVP uploadHistory)
, ("no-bounds", viewNoBounds) , ("no-bounds", viewNoBounds)
@ -274,6 +275,7 @@ appLoadCabalFiles env dbconf p = do
func func
(sourceHistory uploadHistory) (sourceHistory uploadHistory)
(storeWrite $ HackageViewIndex name) (storeWrite $ HackageViewIndex name)
-}
case eres of case eres of
Left e -> $logError $ tshow e Left e -> $logError $ tshow e
Right () -> return () Right () -> return ()