Remove bad Arbitrary instance

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,