[commit: haddock] ghc-7.6: Adapt parsetests for GHC 7.6.1 (c0d71b6)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/c0d71b685dfdcbafa8ca0b3924aef6629142e6dc

>---------------------------------------------------------------

commit c0d71b685dfdcbafa8ca0b3924aef6629142e6dc
Author: Simon Hengel <[email protected]>
Date:   Sat Sep 22 14:15:53 2012 +0200

    Adapt parsetests for GHC 7.6.1

>---------------------------------------------------------------

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

diff --git a/tests/unit-tests/parsetests.hs b/tests/unit-tests/parsetests.hs
index 0192ebf..58348a5 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)