From 6ffaaf83376fcda5e1d98fb9963ab73faa528ab5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 13 May 2009 10:16:49 +0000 Subject: [PATCH] fix warning --- compiler/main/DriverPipeline.hs | 2 ++ 1 file changed, 2 insertions(+) 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: " ++ -- 1.7.10.4