diff options
| author | Simon Hengel <sol@typeful.net> | 2013-09-04 21:46:07 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2013-09-18 22:43:34 +0200 |
| commit | 9697748a1619a0fc892393a11c3a05da3f69e787 (patch) | |
| tree | 9e30f35b3068c95200ab70176591030023611f9b /test/Haddock/ParseSpec.hs | |
| parent | 49633289911c00addd869e38581ff73e23f13e5f (diff) | |
Add test helper
Diffstat (limited to 'test/Haddock/ParseSpec.hs')
| -rw-r--r-- | test/Haddock/ParseSpec.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |