yogsototh/stack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix pattern overlap warning with GHC-7.8 and GHC-7.10

Browse source 
`show (ErrorCall x) = x`, so the error message is as before.
This commit is contained in:
Simon Jakobi 2016-05-17 17:04:39 +02:00
parent cc57f97bc6
commit 56964d8f8e
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Stack/Coverage.hs
View file

@ -293,12 +293,9 @@ generateUnionReport report reportDir tixFiles = do
readTixOrLog :: (MonadLogger m, MonadIO m, MonadBaseControl IO m) => Path b File -> m (Maybe Tix)
readTixOrLog path = do
mtix <- liftIO (readTix (toFilePath path)) `catch` \case
ErrorCall err -> do
$logError $ "Error while reading tix: " <> T.pack err
return Nothing
-- https://ghc.haskell.org/trac/ghc/ticket/8779
_ -> fail "Impossible case in readTixOrLog"
mtix <- liftIO (readTix (toFilePath path)) `catch` \errorCall -> do
$logError $ "Error while reading tix: " <> T.pack (show (errorCall :: ErrorCall))
return Nothing
when (isNothing mtix) $
$logError $ "Failed to read tix file " <> T.pack (toFilePath path)
return mtix