title: Parse html to Text.Blaze.Html
body: <p>I'm trying to parse an html file to the Text.Blaze.Html type using Text.Pandoc.
  The html I'll be attempting to parse is:</p>
  
  <pre><code>&lt;head&gt;
  
   &lt;style type="text/css"&gt;table.sourceCode {
   margin: 0; padding: 0; vertical-align: baseline; border: none; }
   table.sourceCode { width: 100%; line-height: 100%; background-color: #f8f8f8; }
   &lt;/style&gt;
  
   &lt;title&gt;Using Yesod&lt;/title&gt;
  
   &lt;/head&gt;
  
   &lt;body&gt;
     &lt;h1&gt;Intial Commit&lt;/h1&gt;
     &lt;br&gt;
   &lt;/body&gt;
  </code></pre>
  
  <p>The code I use is:</p>
  
  <pre><code>writeHtml def {writerHtml5 = True } . readHtml def $ inp
  </code></pre>
  
  <p>This strips the header tags off and yields only the body giving:</p>
  
  <pre><code>Main &gt; renderHtml $ writeHtml def &gt; {writerHtml5 = True } . readHtml def $ inp
  "&lt;h1&gt;Intial Commit&lt;/h1&gt;\n&lt;p&gt;&lt;br /&gt;&lt;/p&gt;"
  </code></pre>
  
  <p>I understand the header content is stored as meta-data, but I want to know where the rest of the Header content (the style information goes in this case) goes.</p>
  
  <pre><code>Main &gt; readHtml def ht
  Pandoc (Meta {unMeta = fromList [("title",MetaInlines [Str "Using",Space,Str   "Yesod"])]}) &gt; [Header 1 ("",[],[]) [Str "Intial",Space,Str "Commit"],Para [LineBreak]]
  </code></pre>