fix warning

6ffaaf83 · Simon Marlow · 36cef1ea · 6ffaaf83
Commit 6ffaaf83 authored May 13, 2009 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

compiler/main/DriverPipeline.hs compiler/main/DriverPipeline.hs +2 -0

No files found.
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -301,8 +301,10 @@ link LinkBinary dflags batch_attempt_linking hpt
 link LinkDynLib dflags batch_attempt_linking hpt
   = link' dflags batch_attempt_linking hpt

+#ifndef GHCI
 -- warning suppression
 link other _ _ _ = panicBadLink other
+#endif

 panicBadLink :: GhcLink -> a
 panicBadLink other = panic ("link: GHC not built to link this way: " ++