Merge pull request #52 from basvandijk/master
Fix for building Data.Aeson.TH with GHC-6.12.3
commit1fa8f4d0b6c74b2d9387ed89c7034ead7816e0db
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 30 Nov 2011, 09:52 (15 years ago)
parenteddbbf54d545f7
Data/Aeson/TH.hs+1−1
@@ -353,7 +353,7 @@ encodeArgs withExp _ (NormalC conName ts) = do
353353 ]
354354 ret = noBindS $ [e|return|] `appE` varE mv
355355 return $ [e|Array|] `appE`
356− ([e|V.create|] `appE`
356+ (varE 'V.create `appE`
357357 doE (newMV:stmts++[ret]))
358358 match (conP conName $ map varP args)
359359 (normalB $ withExp js)