From 1d49985c371f930fd927e0bc346688c14bdf48e2 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 17 Nov 2014 14:52:57 +0200
Subject: [PATCH] Re-enable view generation

---
 Application.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Application.hs b/Application.hs
index ac5b008..cfd266f 100644
--- a/Application.hs
+++ b/Application.hs
@@ -37,6 +37,7 @@ import           Yesod.Default.Main
 import           System.Environment (getEnvironment)
 import           Data.BlobStore (HasBlobStore (..), BlobStore)
 import           System.IO (hSetBuffering, BufferMode (LineBuffering))
+import qualified Data.ByteString as S
 
 import qualified Echo
 
@@ -230,7 +231,7 @@ cabalLoaderMain = do
         pool
   where
     logFunc loc src level str
-        | level > LevelDebug = hPutStrLn stdout $ fromLogStr $ defaultLogStr loc src level str
+        | level > LevelDebug = S.hPutStr stdout $ fromLogStr $ defaultLogStr loc src level str
         | otherwise = return ()
 
 appLoadCabalFiles :: ( PersistConfig c
@@ -264,18 +265,18 @@ appLoadCabalFiles env dbconf p = do
         runDB' $ forM_ newMD $ \x -> do
             deleteBy $ UniqueMetadata $ metadataName x
             insert_ x
-        {-
         let views =
                 [ ("pvp", viewPVP uploadHistory)
                 , ("no-bounds", viewNoBounds)
                 , ("unchanged", viewUnchanged)
                 ]
-        forM_ views $ \(name, func) -> runResourceT $ createView
+        forM_ views $ \(name, func) -> do
+            $logInfo $ "Generating view: " ++ toPathPiece name
+            runResourceT $ createView
                 name
                 func
                 (sourceHistory uploadHistory)
                 (storeWrite $ HackageViewIndex name)
-        -}
     case eres of
         Left e -> $logError $ tshow e
         Right () -> return ()