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" enewPath <- try $ canonicalizePath $ docdir </> package </> packageName' <.> "haddock"
case enewPath :: Either IOException FilePath of case enewPath :: Either IOException FilePath of
Left e -> print e Left _ -> return () -- print e
Right newPath -> atomicModifyIORef haddockFilesRef $ \hfs' Right newPath -> atomicModifyIORef haddockFilesRef $ \hfs'
-> ((package, newPath) : hfs', ()) -> ((package, newPath) : hfs', ())