Commit a5ce7e4b authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Accommodate INLINALBE pragmas in TH

parent 35391368
......@@ -10,6 +10,6 @@ mkC :: Name -> Q [Dec]
mkC n = return
[InstanceD [] (AppT (ConT ''C) (ConT n))
[ FunD 'inlinable [Clause [WildP] (NormalB (ConE '())) []],
PragmaD (InlineP 'inlinable (InlineSpec True False Nothing))
PragmaD (InlineP 'inlinable (InlineSpec Inline False Nothing))
]
]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment