From f6db0b202be1ba780544cb34b527ee2955c56f9b Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Fri, 20 Apr 2018 13:58:38 +0100 Subject: comments only --- compiler/basicTypes/BasicTypes.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'compiler/basicTypes/BasicTypes.hs') 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 -- cgit v1.2.1