Create an HTML table: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,235: / Line 2,235: @@
 renderTable :: [[Int]] -> Html
 renderTable xs = [shamlet|
+  $doctype 5
-  <style>
+  <html>
-    #{renderCss $ styles undefined}
-  <table>
+    <head>
-    <tr>
+      <style>
+        #{renderCss $ styles undefined}
-      <th>
+  <body>
-      $forall header <- headers
-        <th>#{header}
+    <table>
-    $forall row <- xs
       <tr>
-        $maybe index <- elemIndex row xs
+        <th>
-          <td .rowLabel>#{index + 1}
+        $forall header <- headers
-        $nothing
+          <th>#{header}
-          <td>?
+      $forall row <- xs
-        $forall cell <- row
+        <tr>
-          <td>#{cell}
+          $maybe index <- elemIndex row xs
+            <td .rowLabel>#{index + 1}
+          $nothing
+            <td>?
+          $forall cell <- row
+            <td>#{cell}
   |]
  where