Commit 8ae8c865 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix warnings

parent 23cb13ad
...@@ -69,7 +69,7 @@ import CLabel ( CLabel, ForeignLabelSource(..), pprCLabel, ...@@ -69,7 +69,7 @@ import CLabel ( CLabel, ForeignLabelSource(..), pprCLabel,
dynamicLinkerLabelInfo, mkPicBaseLabel, dynamicLinkerLabelInfo, mkPicBaseLabel,
labelDynamic, externallyVisibleCLabel ) labelDynamic, externallyVisibleCLabel )
import CLabel ( mkForeignLabel, pprDebugCLabel ) import CLabel ( mkForeignLabel )
import StaticFlags ( opt_PIC, opt_Static ) import StaticFlags ( opt_PIC, opt_Static )
...@@ -104,7 +104,7 @@ data ReferenceKind ...@@ -104,7 +104,7 @@ data ReferenceKind
deriving(Eq) deriving(Eq)
cmmMakeDynamicReference cmmMakeDynamicReference, cmmMakeDynamicReference'
:: Monad m => DynFlags :: Monad m => DynFlags
-> (CLabel -> m ()) -- a monad & a function -> (CLabel -> m ()) -- a monad & a function
-- used for recording imported symbols -- used for recording imported symbols
...@@ -112,9 +112,7 @@ cmmMakeDynamicReference ...@@ -112,9 +112,7 @@ cmmMakeDynamicReference
-> CLabel -- the label -> CLabel -- the label
-> m CmmExpr -> m CmmExpr
cmmMakeDynamicReference dflags addImport referenceKind lbl cmmMakeDynamicReference = cmmMakeDynamicReference'
= cmmMakeDynamicReference' dflags addImport referenceKind lbl
cmmMakeDynamicReference' dflags addImport referenceKind lbl cmmMakeDynamicReference' dflags addImport referenceKind lbl
| Just _ <- dynamicLinkerLabelInfo lbl | Just _ <- dynamicLinkerLabelInfo lbl
......
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