@@ -0,0 +1,20 @@
1+diff -ruN orig/Test/Run.hs new/Test/Run.hs
2+--- orig/Test/Run.hs 2014-08-19 09:57:25.537902164 +0300
3++++ new/Test/Run.hs 2014-08-19 09:57:25.000000000 +0300
4+@@ -27,6 +27,7 @@
5+ import Language.Haskell.TH.Desugar.Expand
6+ import Language.Haskell.TH.Desugar.Sweeten
7+ import Language.Haskell.TH
8++import Language.Haskell.TH.Syntax (qRunIO)
9+
10+ import Control.Monad
11+
12+@@ -121,7 +122,7 @@
13+ case (resK, lhs) of
14+ (DStarK, [DVarT _]) -> [| True |]
15+ _ -> do
16+- runIO $ do
17++ qRunIO $ do
18+ putStrLn "Failed bug8884 test:"
19+ putStrLn $ show dinfo
20+ [| False |] )