From 9697748a1619a0fc892393a11c3a05da3f69e787 Mon Sep 17 00:00:00 2001 From: Simon Hengel Date: Wed, 4 Sep 2013 21:46:07 +0200 Subject: Add test helper --- test/Haddock/ParseSpec.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'test/Haddock') diff --git a/test/Haddock/ParseSpec.hs b/test/Haddock/ParseSpec.hs index 4713c60b..799330c2 100644 --- a/test/Haddock/ParseSpec.hs +++ b/test/Haddock/ParseSpec.hs @@ -8,7 +8,6 @@ module Haddock.ParseSpec (main, spec) where import Control.Applicative import Data.Monoid import Data.String -import DynFlags (DynFlags, defaultDynFlags) import Haddock.Doc (combineStringNodes) import Haddock.Lex (tokenise) import qualified Haddock.Parse as Parse @@ -17,8 +16,7 @@ import Outputable (Outputable, showSDoc, ppr) import RdrName (RdrName) import Test.Hspec -dynFlags :: DynFlags -dynFlags = defaultDynFlags (error "dynFlags for Haddock tests: undefined") +import Helper instance Outputable a => Show a where show = showSDoc dynFlags . ppr -- cgit v1.2.3