Be less verbose

This commit is contained in:
Michael Snoyman 2014-10-23 11:59:57 +03:00
parent ed64931967
commit e27f58fa2b

View File

@ -237,7 +237,7 @@ runTestSuite cabalVersion settings testdir docdir
enewPath <- try $ canonicalizePath $ docdir </> package </> packageName' <.> "haddock"
case enewPath :: Either IOException FilePath of
Left e -> print e
Left _ -> return () -- print e
Right newPath -> atomicModifyIORef haddockFilesRef $ \hfs'
-> ((package, newPath) : hfs', ())