diff options
| -rw-r--r-- | src/Haddock/Types.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 3739df98..bd2b1200 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -28,9 +28,6 @@ import qualified Data.Map as Map import GHC hiding (NoLink) import Name -#ifdef TEST -import Test.QuickCheck -#endif ----------------------------------------------------------------------------- -- * Convenient synonyms @@ -299,31 +296,6 @@ exampleToString (Example expression result) = "ghci> " ++ expression ++ "\n" ++ unlines result -#ifdef TEST --- TODO: use derive -instance Arbitrary a => Arbitrary (Doc a) where - arbitrary = - oneof [ return DocEmpty - , do { a <- arbitrary; b <- arbitrary; return (DocAppend a b) } - , fmap DocString arbitrary - , fmap DocParagraph arbitrary - , fmap DocIdentifier arbitrary - , fmap DocModule arbitrary - , fmap DocEmphasis arbitrary - , fmap DocMonospaced arbitrary - , fmap DocUnorderedList arbitrary - , fmap DocOrderedList arbitrary - , fmap DocDefList arbitrary - , fmap DocCodeBlock arbitrary - , fmap DocURL arbitrary - , fmap DocPic arbitrary - , fmap DocAName arbitrary ] -#endif - - -type LDoc id = Located (Doc id) - - data DocMarkup id a = Markup { markupEmpty :: a, markupString :: String -> a, |