sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-03-20 04:46:22 +09:00
Code Issues Activity

Dummy handlers for ticket editing and deletion

Browse source
This commit is contained in:
fr33domlover 2016-05-02 06:13:57 +00:00
parent 349d089019
commit 88569a08ad
3 changed files with 20 additions and 1 deletions
src/Vervis/Handler
Ticket.hs

12
src/Vervis/Handler/Ticket.hs
View file

@ -18,6 +18,9 @@ module Vervis.Handler.Ticket
, postTicketsR
, getTicketNewR
, getTicketR
, putTicketR
, deleteTicketR
, getTicketEditR
)
where
@ -114,3 +117,12 @@ getTicketR shar proj num = do
setTitle $ toHtml $ T.intercalate " :: "
[shar, proj, "Tickets", T.pack ('#' : show num)]
$(widgetFile "ticket/one")
putTicketR :: Text -> Text -> Int -> Handler Html
putTicketR shar proj num = error "Not implemented"
deleteTicketR :: Text -> Text -> Int -> Handler Html
deleteTicketR shar proj num = error "Not implemented"
getTicketEditR :: Text -> Text -> Int -> Handler Html
getTicketEditR shar proj num = error "Not implemented"