Documentation

type DocsAPI = "docs" :> (PostDocument :<|> (GetDocument :<|> (GetDocuments :<|> (PostTextElement :<|> (PostTextRevision :<|> (GetTextElementRevision :<|> (GetTextElementRevisionPDF :<|> (PostTreeRevision :<|> (GetTreeRevision :<|> (GetTreeRevisionFull :<|> (GetTreeRevisionPDF :<|> (GetTreeRevisionHTML :<|> (GetTextHistory :<|> (GetTreeHistory :<|> (GetDocumentHistory :<|> (PostComment :<|> (GetComments :<|> (ResolveComment :<|> (PostReply :<|> (GetDocumentRevision :<|> (GetDocumentRevisionPDF :<|> (GetDocumentRevisionHTML :<|> (GetDocumentRevisionTree :<|> (GetDocumentRevisionText :<|> (GetDraftTextRevision :<|> (PublishDraftTextRevision :<|> (DiscardDraftTextRevision :<|> RenderAPI))))))))))))))))))))))))))) Source #

docsServer :: Server DocsAPI Source #

getUser :: AuthResult Token -> Handler UserID Source #

withDB :: (Connection -> IO (Either SessionError (Result a))) -> Handler a Source #