Commit 1cc96d54 authored by ian@well-typed.com's avatar ian@well-typed.com

Remove redundant cmmMakeDynamicReference' wrapper

parent 9d18aeab
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment