From: simonpj@microsoft.com <unknown>
Date: Tue, 5 Jan 2010 10:09:45 +0000 (+0000)
Subject: Fix warnings
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8ae8c865716e0ee03383ddfae58ab778ce527412;p=ghc-hetmet.git

Fix warnings
---

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