[commit: ghc] master: Remove redundant cmmMakeDynamicReference' wrapper (1cc96d5)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/1cc96d54144f34f620e31d2dee133d17a2367610

>---------------------------------------------------------------

commit 1cc96d54144f34f620e31d2dee133d17a2367610
Author: Ian Lynagh <ian at well-typed.com>
Date:   Mon May 13 19:12:03 2013 +0100

    Remove redundant cmmMakeDynamicReference' wrapper

>---------------------------------------------------------------

 compiler/nativeGen/PIC.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs
index e46a823..0187c4c 100644
--- a/compiler/nativeGen/PIC.hs
+++ b/compiler/nativeGen/PIC.hs
@@ -97,7 +97,7 @@ data ReferenceKind
         deriving(Eq)
 
 
-cmmMakeDynamicReference, cmmMakeDynamicReference'
+cmmMakeDynamicReference
   :: Monad m => DynFlags
              -> (CLabel -> m ())  -- a monad & a function
                                   -- used for recording imported symbols
@@ -105,9 +105,7 @@ cmmMakeDynamicReference, cmmMakeDynamicReference'
              -> CLabel            -- the label
              -> m CmmExpr
 
-cmmMakeDynamicReference = cmmMakeDynamicReference'
-
-cmmMakeDynamicReference' dflags addImport referenceKind lbl
+cmmMakeDynamicReference dflags addImport referenceKind lbl
   | Just _ <- dynamicLinkerLabelInfo lbl
   = return $ CmmLit $ CmmLabel lbl   -- already processed it, pass through