<commit_before>{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

module HN.View.Template where

import HN.View

template name innerhead innerbody = do
  docType
  html $ do
    head $ do link ! rel "stylesheet" ! type_ "text/css" ! href "/css/bootstrap.min.css"
              link ! rel "stylesheet" ! type_ "text/css" ! href "/css/bootstrap-responsive.css"
              link ! rel "stylesheet" ! type_ "text/css" ! href "/css/haskellnews.css"
              meta ! httpEquiv "Content-Type" ! content "text/html; charset=UTF-8"
              innerhead
    body !# name $ do
      innerbody
      footer
      preEscapedText "<script type=\"text/javascript\"> var _gaq = _gaq \
                     \|| []; _gaq.push(['_setAccount', 'UA-39372380-1']);\
                     \ _gaq.push(['_trackPageview']); (function() {var ga\
                     \ = document.createElement('script'); ga.type = 'tex\<commit_msg>Add title.<commit_after>{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

module HN.View.Template where

import HN.View
import qualified Text.Blaze.Html5 as H (title)

template name innerhead innerbody = do
  docType
  html $ do
    head $ do H.title "Haskell News"
              link ! rel "stylesheet" ! type_ "text/css" ! href "/css/bootstrap.min.css"
              link ! rel "stylesheet" ! type_ "text/css" ! href "/css/bootstrap-responsive.css"
              link ! rel "stylesheet" ! type_ "text/css" ! href "/css/haskellnews.css"
              meta ! httpEquiv "Content-Type" ! content "text/html; charset=UTF-8"
              innerhead
    body !# name $ do
      innerbody
      footer
      preEscapedText "<script type=\"text/javascript\"> var _gaq = _gaq \
                     \|| []; _gaq.push(['_setAccount', 'UA-39372380-1']);\
                     \ _gaq.push(['_trackPageview']); (function() {var ga\
                     \ = document.createElement('script'); ga.type = 'tex\
{'fraction_non_alphanumeric': 0.14058491534120063, 'fraction_numerical': 0.0107747562852745, 'mean_word_length': 2.24459234608985, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4297702', 'n_tokens_mistral': 626, 'n_tokens_neox': 597, 'n_words': 145}