diff options
| author | David Waern <david.waern@gmail.com> | 2010-05-13 20:01:04 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-05-13 20:01:04 +0000 |
| commit | 9dc3aeef7388cb962a2d021d9e119c586fc18068 (patch) | |
| tree | 99c74e4f8b5a9ab32a5c1aaa49d59378d013cfc0 /src/Haddock/Types.hs | |
| parent | afccf6d2d2b525e367e429feb1d7edec5022db76 (diff) | |
Remove bad Arbitrary instance
Diffstat (limited to 'src/Haddock/Types.hs')
| -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, |