diff options
| -rw-r--r-- | ghc/compiler/basicTypes/IdInfo.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs index 8cc168dd0a..f73ba4f65d 100644 --- a/ghc/compiler/basicTypes/IdInfo.lhs +++ b/ghc/compiler/basicTypes/IdInfo.lhs @@ -331,11 +331,11 @@ data InlinePragInfo -- exact significance of the IMustNotBeINLINEd pragma isNeverInlinePrag :: InlinePragInfo -> Bool -isNeverInlinePrag (IMustNotBeINLINEd True Nothing) = True -isNeverInlinePrag other = False +isNeverInlinePrag (IMustNotBeINLINEd _ Nothing) = True +isNeverInlinePrag other = False neverInlinePrag :: InlinePragInfo -neverInlinePrag = IMustNotBeINLINEd True Nothing +neverInlinePrag = IMustNotBeINLINEd True{-should be False? --SDM -} Nothing instance Outputable InlinePragInfo where -- This is now parsed in interface files |