<commit_before>{-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where

import Import
import Yesod.Auth

getHomeR :: Handler Html
getHomeR = do
    mAuth <- maybeAuth
    (formWidget, formEnctype) <- generateFormPost sampleForm
    let submission = Nothing :: Maybe (FileInfo, Text)
        handlerName = "getHomeR" :: Text
    defaultLayout $ do
        aDomId <- newIdent
        setTitle "Welcome To WriteMeAList.com!"
        toWidgetHead
            [hamlet|
                <meta name="google-site-verification"
                   content="hTMPzastDoFcR4-DLMM2jHogIhG5oWDRAZ4L-BVTWiU">
            |]

        $(widgetFile "homepage")

postHomeR :: Handler Html
postHomeR = do
    mAuth <- maybeAuth
    ((result, formWidget), formEnctype) <- runFormPost sampleForm
    let handlerName = "postHomeR" :: Text
        submission = case result of
            FormSuccess res -> Just res
            _ -> Nothing

    defaultLayout $ do
        aDomId <- newIdent
        setTitle "Welcome To WriteMeAList.com!"
        $(widgetFile "homepage")
<commit_msg>cleaning up remenants from scaffold<commit_after>{-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where

import Import
import Yesod.Auth

getHomeR :: Handler Html
getHomeR = do
    mAuth <- maybeAuth
    defaultLayout $ do
        aDomId <- newIdent
        setTitle "Welcome To WriteMeAList.com!"
        toWidgetHead
            [hamlet|
                <meta name="google-site-verification"
                   content="hTMPzastDoFcR4-DLMM2jHogIhG5oWDRAZ4L-BVTWiU">
            |]

        $(widgetFile "homepage")

{'fraction_non_alphanumeric': 0.08719851576994433, 'fraction_numerical': 0.004947433518862091, 'mean_word_length': 2.4207188160676534, 'pattern_counts': {'":': 0, '<': 13, '<?xml version=': 0, '>': 7, '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': '4462221', 'n_tokens_mistral': 521, 'n_tokens_neox': 490, 'n_words': 118}