Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/029d54c31e38dc7005a82d912452236512ba8ac9 >--------------------------------------------------------------- commit 029d54c31e38dc7005a82d912452236512ba8ac9 Author: Simon Peyton Jones <[email protected]> Date: Fri May 18 10:10:54 2012 +0100 Accommodate INLINALBE pragmas in TH >--------------------------------------------------------------- tests/th/T5700a.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/tests/th/T5700a.hs b/tests/th/T5700a.hs index 3ae7d77..61e6f48 100644 --- a/tests/th/T5700a.hs +++ b/tests/th/T5700a.hs @@ -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)) ] ] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
