14 lines
295 B
Haskell
14 lines
295 B
Haskell
module Text.Blaze.TestInstances
|
|
(
|
|
) where
|
|
|
|
import TestImport
|
|
|
|
import Text.Blaze.Html
|
|
import Text.Blaze.Renderer.Text
|
|
|
|
|
|
instance Arbitrary Html where
|
|
arbitrary = (preEscapedToHtml :: String -> Html) . getPrintableString <$> arbitrary
|
|
shrink = map preEscapedToHtml . shrink . renderMarkup
|