20 lines
764 B
Diff
20 lines
764 B
Diff
diff -ruN orig/Test/Run.hs new/Test/Run.hs
|
|
--- orig/Test/Run.hs 2014-08-19 09:57:25.537902164 +0300
|
|
+++ new/Test/Run.hs 2014-08-19 09:57:25.000000000 +0300
|
|
@@ -27,6 +27,7 @@
|
|
import Language.Haskell.TH.Desugar.Expand
|
|
import Language.Haskell.TH.Desugar.Sweeten
|
|
import Language.Haskell.TH
|
|
+import Language.Haskell.TH.Syntax (qRunIO)
|
|
|
|
import Control.Monad
|
|
|
|
@@ -121,7 +122,7 @@
|
|
case (resK, lhs) of
|
|
(DStarK, [DVarT _]) -> [| True |]
|
|
_ -> do
|
|
- runIO $ do
|
|
+ qRunIO $ do
|
|
putStrLn "Failed bug8884 test:"
|
|
putStrLn $ show dinfo
|
|
[| False |] )
|