From: simonpj@microsoft.com <unknown>
Date: Wed, 15 Sep 2010 15:42:49 +0000 (+0000)
Subject: Allow "INLINEABLE" as a synonym
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d108044bef62f6a0d579c92ced5e8188f72edc2d

Allow "INLINEABLE" as a synonym
---

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 0fa3256..b418280 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -2218,6 +2218,8 @@ ignoredPrags = Map.fromList (map ignored pragmas)
 oneWordPrags = Map.fromList([("rules", rulePrag),
                            ("inline", token (ITinline_prag Inline FunLike)),
                            ("inlinable", token (ITinline_prag Inlinable FunLike)),
+                           ("inlineable", token (ITinline_prag Inlinable FunLike)),
+			   		  -- Spelling variant
                            ("notinline", token (ITinline_prag NoInline FunLike)),
                            ("specialize", token ITspec_prag),
                            ("source", token ITsource_prag),