Adapt to new TH pragma data type
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 15 Aug 2012 13:22:42 +0000 (14:22 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 15 Aug 2012 13:22:42 +0000 (14:22 +0100)
dph-lifted-copy/Data/Array/Parallel/Lifted/TH/Repr.hs

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