vervis/src/Vervis/Handler/Ticket.hs

{- This file is part of Vervis.
 -
 - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
 -
 - ♡ Copying is an act of love. Please copy, reuse and share.
 -
 - The author(s) have dedicated all copyright and related and neighboring
 - rights to this software to the public domain worldwide. This software is
 - distributed without any warranty.
 -
 - You should have received a copy of the CC0 Public Domain Dedication along
 - with this software. If not, see
 - <http://creativecommons.org/publicdomain/zero/1.0/>.
 -}

module Vervis.Handler.Ticket
    ( getTicketsR
    , postTicketsR
    , getTicketNewR
    )
where

import Prelude

import Data.Text (Text)
import Database.Persist.Types (Entity (..))
import Text.Blaze.Html (Html, toHtml)
import Yesod.Core (defaultLayout)
import Yesod.Core.Handler (notFound)
import Yesod.Core.Widget (setTitle)
import Yesod.Form.Functions (runFormPost)
import Yesod.Persist.Core (runDB, getBy404)

import qualified Data.Text as T (intercalate)

import Vervis.Form.Ticket
import Vervis.Foundation
import Vervis.Model
import Vervis.Settings (widgetFile)

getTicketsR :: Text -> Text -> Handler Html
getTicketsR shar proj = notFound

postTicketsR :: Text -> Text -> Handler Html
postTicketsR shar proj = notFound

getTicketNewR :: Text -> Text -> Handler Html
getTicketNewR shar proj = do
    Entity pid project <- runDB $ do
        Entity sid _sharer <- getBy404 $ UniqueSharerIdent shar
        getBy404 $ UniqueProject proj sid
    let next = projectNextTicket project
    ((_result, widget), enctype) <- runFormPost $ newTicketForm pid next
    defaultLayout $ do
        setTitle $ toHtml $ T.intercalate " :: " [shar, proj, "New ticket"]
        $(widgetFile "ticket/new")