From 9dc3aeef7388cb962a2d021d9e119c586fc18068 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 13 May 2010 20:01:04 +0000
Subject: Remove bad Arbitrary instance

---
 src/Haddock/Types.hs | 28 ----------------------------
 1 file changed, 28 deletions(-)

(limited to 'src/Haddock')

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,
-- 
cgit v1.2.3