html.hs

{-

<p>
  <span>
    abc
  </span>
  <a href="http://thelink">
    <span>
      def
    </span>
  </a>
  <a href="http://thedecoratedlink">
    <span style="font-size:small;font-style:italic;font-weight:bold;text-decoration:underline;vertical-align:sub">
      ghi
    </span>
  </a>
</p>
<hr>
<img alt="the alt text" src="pic.jpg"/>
<h4>the heading</h4>
<ol>
  <li>
    <p>
      <span style="font-size:small;font-style:italic;text-decoration:line-through underline;vertical-align:super">
        the ordered list item 1
      </span>
      <span>
        the ordered list item 1 next segment
      </span>
      <a href="https://hai">
        <span>
          the ordered list item 1 next segment link
        </span>
      </a>
    </p>
    <p>
      <span style="font-size:small;font-weight:bold;text-decoration:underline;vertical-align:super">
        the ordered list item 1 next para
      </span>
    </p>
  </li>
  <li>
    <p>
      <span style="font-size:small;font-style:italic;text-decoration:line-through underline;vertical-align:super">
        the ordered list item 2
      </span>
    </p>
    <p>
      <span style="font-size:small;font-weight:bold;text-decoration:underline;vertical-align:super">
        the ordered list item 2 next para
      </span>
    </p>
  </li>
</ol>
<ul>
  <li>
    <p>
      <span>
        the bullet list item 1
      </span>
    </p>
    <p>
      <span>
        the bullet list item 1
      </span>
    </p>
    <p>
      <a href="http://bai">
        <span>
          click here
        </span>
      </a>
    </p>
  </li>
</ul>

-}
testBlocks ::
  Blocks String
testBlocks =
  Blocks
    [
      p
        [
          txt "abc"
        , lnk "http://thelink" "def"
        , Emphasis !@~ Underline !@~ Strong !@~ Subscript !@~ lnk "http://thedecoratedlink" "ghi"
        ]
    , hr
    , img
        "the alt text"
        "pic.jpg"
    , h4 "the heading"
    , ol
        [
          [
            p
              [
                Emphasis !@~ Underline !@~ Strikeout !@~ Superscript !@~ txt "the ordered list item 1"
              , txt "the ordered list item 1 next segment"
              , lnk "https://hai" "the ordered list item 1 next segment link"
              ]
          , p
              [
                Strong !@~ Underline !@~ Superscript !@~ txt "the ordered list item 1 next para"
              ]
          ]
        , [
            p
              [
                Emphasis !@~ Underline !@~ Strikeout !@~ Superscript !@~ txt "the ordered list item 2"
              ]
          , p
              [
                Strong !@~ Underline !@~ Superscript !@~ txt "the ordered list item 2 next para"
              ]
          ]
        ]
    , ul
        [
          [
            ptxt "the bullet list item 1"
          , ptxt "the bullet list item 1"
          , plnk "http://bai" "click here"
          ]
        ]
    ]