From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 13 May 2009 10:16:49 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6ffaaf83376fcda5e1d98fb9963ab73faa528ab5

fix warning
---

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 973495e..9115afa 100644
--- 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: " ++