Accommodate changes to Inline pragmas in TH
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 18 May 2012 09:08:02 +0000 (10:08 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 18 May 2012 09:08:02 +0000 (10:08 +0100)
dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs

index 86fba09..bc97ad2 100644 (file)
@@ -46,7 +46,7 @@ simpleFunD name pats xx
 
 
 inlineD :: Name -> DecQ
-inlineD name = pragInlD name (inlineSpecNoPhase True False)
+inlineD name = pragInlD name (inlineSpecNoPhase Inline False)
 
 
 instance_PData :: TypeQ -> [Name] -> Name -> [TypeQ] -> DecQ