Fix ./validate failure due to unused result.
authorAustin Seipp <austin@well-typed.com>
Tue, 28 Jan 2014 04:22:03 +0000 (22:22 -0600)
committerAustin Seipp <austin@well-typed.com>
Tue, 28 Jan 2014 04:22:09 +0000 (22:22 -0600)
Fallout from 4ade9627608ea0a88450506222bb9afbbcff4294

Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/main/GHC.hs

index 2f878fb..553d1a9 100644 (file)
@@ -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