getHonorPledgeR :: Handler Html
getHonorPledgeR = do
    is_elig <- curUserIsEligibleEstablish
    defaultLayout $ do
        snowdriftTitle "Honor Pledge"
        $(widgetFile "honor-pledge")
getHonorPledgeR :: Handler Html
getHonorPledgeR = do
    is_elig <- curUserIsEligibleEstablish
    defaultLayout $ do
        snowdriftTitle "Honor Pledge"
        $(widgetFile "honor-pledge")
getHonorPledgeR = do
    is_elig <- curUserIsEligibleEstablish
    defaultLayout $ do
        snowdriftTitle "Honor Pledge"
        $(widgetFile "honor-pledge")