From 8ae8c865716e0ee03383ddfae58ab778ce527412 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 5 Jan 2010 10:09:45 +0000
Subject: [PATCH] Fix warnings

---
 compiler/nativeGen/PIC.hs |    8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index a573b6b..b497480 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -69,7 +69,7 @@ import CLabel           ( CLabel, ForeignLabelSource(..), pprCLabel,
                           dynamicLinkerLabelInfo, mkPicBaseLabel,
                           labelDynamic, externallyVisibleCLabel )
 
-import CLabel           ( mkForeignLabel, pprDebugCLabel )
+import CLabel           ( mkForeignLabel )
 
 
 import StaticFlags	( opt_PIC, opt_Static )
@@ -104,7 +104,7 @@ data ReferenceKind
         deriving(Eq)
 
 
-cmmMakeDynamicReference
+cmmMakeDynamicReference, cmmMakeDynamicReference'
   :: Monad m => DynFlags
              -> (CLabel -> m ())  -- a monad & a function
                                   -- used for recording imported symbols
@@ -112,9 +112,7 @@ cmmMakeDynamicReference
              -> CLabel            -- the label
              -> m CmmExpr
 
-cmmMakeDynamicReference dflags addImport referenceKind lbl
-   = cmmMakeDynamicReference' dflags addImport referenceKind lbl
-
+cmmMakeDynamicReference = cmmMakeDynamicReference'
   
 cmmMakeDynamicReference' dflags addImport referenceKind lbl
   | Just _ <- dynamicLinkerLabelInfo lbl
-- 
1.7.10.4