tableLayout :: WidgetT App IO () -> HandlerT App IO Markup
tableLayout widget = do
  cont <- widgetToPageContent $ do
    $(combineStylesheets 'StaticR
      [ css_bootstrap_css
      , css_main_css
      ])
    widget
  withUrlRenderer [hamlet|$newline never
    $doctype 5
    <html>
      <head>
        <meta charset="UTF-8">
        ^{pageHead cont}
      <body>
        ^{pageBody cont}
    |]
tableLayout :: WidgetT App IO () -> HandlerT App IO Markup
tableLayout widget = do
  cont <- widgetToPageContent $ do
    $(combineStylesheets 'StaticR
      [ css_bootstrap_css
      , css_main_css
      ])
    widget
  withUrlRenderer [hamlet|$newline never
    $doctype 5
    <html>
      <head>
        <meta charset="UTF-8">
        ^{pageHead cont}
      <body>
        ^{pageBody cont}
    |]
tableLayout widget = do
  cont <- widgetToPageContent $ do
    $(combineStylesheets 'StaticR
      [ css_bootstrap_css
      , css_main_css
      ])
    widget
  withUrlRenderer [hamlet|$newline never
    $doctype 5
    <html>
      <head>
        <meta charset="UTF-8">
        ^{pageHead cont}
      <body>
        ^{pageBody cont}
    |]