diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-04-20 13:58:38 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-04-20 17:08:02 +0100 |
| commit | f6db0b202be1ba780544cb34b527ee2955c56f9b (patch) | |
| tree | f578c35e873afa5ba0ac1ca8936873d301e41422 | |
| parent | 8b10b8968f25589b1857f12788fc79b3b142c467 (diff) | |
| download | haskell-f6db0b202be1ba780544cb34b527ee2955c56f9b.tar.gz | |
comments only
| -rw-r--r-- | compiler/basicTypes/BasicTypes.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/basicTypes/BasicTypes.hs b/compiler/basicTypes/BasicTypes.hs index 9b8208e717..dfb7ab426b 100644 --- a/compiler/basicTypes/BasicTypes.hs +++ b/compiler/basicTypes/BasicTypes.hs @@ -1220,10 +1220,10 @@ data InlinePragma -- Note [InlinePragma] -- | Inline Specification data InlineSpec -- What the user's INLINE pragma looked like - = Inline - | Inlinable - | NoInline - | NoUserInline -- Used when the pragma did not come from the user, + = Inline -- User wrote INLINE + | Inlinable -- User wrote INLINABLE + | NoInline -- User wrote NOINLINE + | NoUserInline -- User did not write any of INLINE/INLINABLE/NOINLINE -- e.g. in `defaultInlinePragma` or when created by CSE deriving( Eq, Data, Show ) -- Show needed for Lexer.x |