From c0d71b685dfdcbafa8ca0b3924aef6629142e6dc Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Sat, 22 Sep 2012 14:15:53 +0200
Subject: Adapt parsetests for GHC 7.6.1

---
 tests/unit-tests/parsetests.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/unit-tests/parsetests.hs b/tests/unit-tests/parsetests.hs
index 0192ebfc..58348a59 100644
--- a/tests/unit-tests/parsetests.hs
+++ b/tests/unit-tests/parsetests.hs
@@ -11,8 +11,10 @@ import Haddock.Types
 import Outputable
 import Data.Monoid
 
+dynFlags = defaultDynFlags (error "dynFlags for Haddock tests: undefined")
+
 instance Outputable a => Show a where
-  show = showSDoc . ppr
+  show = showSDoc dynFlags . ppr
 
 deriving instance Show a => Show (Doc a)
 deriving instance Eq a =>Eq (Doc a)
@@ -80,4 +82,4 @@ main = do
     toTestCase (ParseTest s r) = TestCase $ assertEqual s r (parse s)
 
     parse :: String -> Maybe (Doc RdrName)
-    parse s = parseParas $ tokenise (defaultDynFlags undefined) s (0,0)
+    parse s = parseParas $ tokenise dynFlags s (0,0)
-- 
cgit v1.2.3