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