diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-09 18:24:28 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-09 18:24:28 +0000 |
| commit | 9dec87ea33e7b398db7d86a30756d1d655895e8b (patch) | |
| tree | 52520de520f1eb92b069b5d1cd9e76c54d6861dd | |
| parent | 54cee8fbc3d9c1b4b563965ce6d991535ca92815 (diff) | |
| download | haskell-wip/all-inlinable-head.tar.gz | |
Unused identifierswip/all-inlinable-head
| -rw-r--r-- | compiler/specialise/Specialise.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs index 9158c2b0df..222c585cfe 100644 --- a/compiler/specialise/Specialise.hs +++ b/compiler/specialise/Specialise.hs @@ -745,13 +745,13 @@ warnMissingSpecs dflags callers wantSpecImport :: DynFlags -> Unfolding -> Bool -- See Note [Specialise imported INLINABLE things] -wantSpecImport dflags unf +wantSpecImport _dflags unf = case unf of NoUnfolding -> False BootUnfolding -> False OtherCon {} -> False DFunUnfolding {} -> True - CoreUnfolding { uf_src = src, uf_guidance = _guidance } -> True + CoreUnfolding { uf_src = _src, uf_guidance = _guidance } -> True {- | gopt Opt_SpecialiseAggressively dflags -> True |