diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-01-27 22:22:03 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-01-27 22:22:09 -0600 |
| commit | 874124d71fb8af9c42fabd1b08e0e66545a02ff2 (patch) | |
| tree | b75a080056fa8fc0baef3adb04f09fb863b95a6d | |
| parent | 4ade9627608ea0a88450506222bb9afbbcff4294 (diff) | |
| download | haskell-874124d71fb8af9c42fabd1b08e0e66545a02ff2.tar.gz | |
Fix ./validate failure due to unused result.
Fallout from 4ade9627608ea0a88450506222bb9afbbcff4294
Signed-off-by: Austin Seipp <austin@well-typed.com>
| -rw-r--r-- | compiler/main/GHC.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index 2f878fba7d..553d1a935f 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -468,11 +468,14 @@ checkBrokenTablesNextToCode :: MonadIO m => DynFlags -> m () checkBrokenTablesNextToCode dflags = do { broken <- checkBrokenTablesNextToCode' dflags ; when broken - $ do { liftIO $ throwIO $ mkApiErr dflags - (text "Tables-next-to-code not supported on ARM using binutils ld (https://sourceware.org/bugzilla/show_bug.cgi?id=16177)") + $ do { _ <- liftIO $ throwIO $ mkApiErr dflags invalidLdErr ; fail "unsupported linker" } } + where + invalidLdErr = text "Tables-next-to-code not supported on ARM" <+> + text "when using binutils ld (please see:" <+> + text "https://sourceware.org/bugzilla/show_bug.cgi?id=16177)" checkBrokenTablesNextToCode' :: MonadIO m => DynFlags -> m Bool checkBrokenTablesNextToCode' dflags |