-- | Like "Data.Aeson.QQ" but without interpolation.moduleData.Aeson.QQ.Simple(aesonQQ )whereimportData.Aeson importqualifiedData.TextasTimportqualifiedData.Text.EncodingasTEimportLanguage.Haskell.THimportLanguage.Haskell.TH.QuoteimportLanguage.Haskell.TH.Syntax(Lift(..))importPrelude()importPrelude.CompataesonQQ::QuasiQuoteraesonQQ =QuasiQuoter{quoteExp=aesonExp ,quotePat=const$error"No quotePat defined for jsonQQ",quoteType=const$error"No quoteType defined for jsonQQ",quoteDec=const$error"No quoteDec defined for jsonQQ"}aesonExp::String->ExpQaesonExp txt =caseeitherDecodeStrict $TE.encodeUtf8$T.packtxt ofLefterr ->error$"Error in aesonExp: "++showerr Rightval ->lift(val ::Value )