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

A little more debug output

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-05 10:39:37 +02:00
parent 24cc7d8428
commit 6ea4b2161b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Data/Hackage.hs
View File

@ -84,6 +84,7 @@ loadCabalFiles dbUpdates forceUpdate uploadHistory0 metadata0 = (>>= runUploadSt
=$ scanlC (\x _ -> x + 1) (0 :: Int) =$ scanlC (\x _ -> x + 1) (0 :: Int)
=$ filterC ((== 0) . (`mod` 1000)) =$ filterC ((== 0) . (`mod` 1000))
=$ mapM_C (\i -> $logInfo $ "Processing cabal file #" ++ tshow i) =$ mapM_C (\i -> $logInfo $ "Processing cabal file #" ++ tshow i)
$logInfo "Finished processing cabal files"
where where
metadata1 = flip fmap metadata0 $ \(v, h) -> MetaSig metadata1 = flip fmap metadata0 $ \(v, h) -> MetaSig
v v