76 lines
2.7 KiB
Haskell
76 lines
2.7 KiB
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE TypeApplications #-}
|
|
module Handler.Home where
|
|
|
|
import Import
|
|
--import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3)
|
|
--import Text.Julius (RawJS (..))
|
|
|
|
-- Define our data that will be used for creating the form.
|
|
--data FileForm = FileForm
|
|
-- { fileInfo :: FileInfo
|
|
-- , fileDescription :: Text
|
|
-- }
|
|
|
|
-- This is a handler function for the GET request method on the HomeR
|
|
-- resource pattern. All of your resource patterns are defined in
|
|
-- config/routes.yesodroutes
|
|
--
|
|
-- The majority of the code you will write in Yesod lives in these handler
|
|
-- functions. You can spread them across multiple files if you are so
|
|
-- inclined, or create a single monolithic file.
|
|
getHomeR :: Handler Html
|
|
getHomeR = do
|
|
-- (formWidget, formEnctype) <- generateFormPost sampleForm
|
|
-- let submission = Nothing :: Maybe FileForm
|
|
-- handlerName = "getHomeR" :: Text
|
|
-- allComments <- runDB $ getAllComments
|
|
rou <- runDB $ selectList [] []
|
|
let rounds = fmap entityVal rou
|
|
defaultLayout $ do
|
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
|
setTitle "OwO Geländespielpunkte"
|
|
let tutorP = sum (fmap roundTutorPoints rounds)
|
|
let erstieP = sum (fmap roundErstiePoints rounds)
|
|
$(widgetFile "homepage")
|
|
|
|
--postHomeR :: Handler Html
|
|
--postHomeR = do
|
|
-- ((result, formWidget), formEnctype) <- runFormPost sampleForm
|
|
-- let handlerName = "postHomeR" :: Text
|
|
-- submission = case result of
|
|
-- FormSuccess res -> Just res
|
|
-- _ -> Nothing
|
|
-- allComments <- runDB $ getAllComments
|
|
--
|
|
-- defaultLayout $ do
|
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
|
-- aDomId <- newIdent
|
|
-- setTitle "Welcome To Yesod!"
|
|
-- $(widgetFile "homepage")
|
|
--
|
|
--sampleForm :: Form FileForm
|
|
--sampleForm = renderBootstrap3 BootstrapBasicForm $ FileForm
|
|
-- <$> fileAFormReq "Choose a file"
|
|
-- <*> areq textField textSettings Nothing
|
|
-- -- Add attributes like the placeholder and CSS classes.
|
|
-- where textSettings = FieldSettings
|
|
-- { fsLabel = "What's on the file?"
|
|
-- , fsTooltip = Nothing
|
|
-- , fsId = Nothing
|
|
-- , fsName = Nothing
|
|
-- , fsAttrs =
|
|
-- [ ("class", "form-control")
|
|
-- , ("placeholder", "File description")
|
|
-- ]
|
|
-- }
|
|
--
|
|
--commentIds :: (Text, Text, Text)
|
|
--commentIds = ("js-commentForm", "js-createCommentTextarea", "js-commentList")
|
|
--
|
|
--getAllComments :: DB [Entity Comment]
|
|
--getAllComments = selectList [] [Asc CommentId]
|