aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-13 20:01:04 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-13 20:01:04 +0000
commit9dc3aeef7388cb962a2d021d9e119c586fc18068 (patch)
tree99c74e4f8b5a9ab32a5c1aaa49d59378d013cfc0
parentafccf6d2d2b525e367e429feb1d7edec5022db76 (diff)
Remove bad Arbitrary instance
-rw-r--r--src/Haddock/Types.hs28
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,