diff options
author | Simon Hengel <sol@typeful.net> | 2012-09-22 14:15:53 +0200 |
---|---|---|
committer | Simon Hengel <sol@typeful.net> | 2012-10-01 11:30:51 +0200 |
commit | c0d71b685dfdcbafa8ca0b3924aef6629142e6dc (patch) | |
tree | 19b524a8aa7d2646fb82bf5e81f0c53b9dd60ffd /tests | |
parent | 762cc901a0d72ebdc770adaaf68c9fd4c3ca4d87 (diff) |
Adapt parsetests for GHC 7.6.1
Diffstat (limited to 'tests')
-rw-r--r-- | 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 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) |