49807ed27f
I decided to add some safety to routes: - Use dedicated newtypes - Use CI for the CI-unique DB fields Since such a change requires so many changes in many source files, this is also a chance to do other such breaking changes. I'm recording the change gradually. It won't build until I finish, so for now don't waste time trying to build the app.
93 lines
2 KiB
Text
93 lines
2 KiB
Text
-- 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/>.
|
|
|
|
Sharer
|
|
ident TextCI
|
|
name Text Maybe
|
|
|
|
UniqueSharerIdent ident
|
|
|
|
Person
|
|
ident SharerId
|
|
login Text
|
|
hash Text Maybe
|
|
email Text Maybe
|
|
|
|
UniquePersonIdent ident
|
|
UniquePersonLogin login
|
|
|
|
SshKey
|
|
person PersonId
|
|
name Text
|
|
algo ByteString
|
|
content ByteString
|
|
|
|
UniqueSshKey person name
|
|
|
|
Group
|
|
ident SharerId
|
|
|
|
UniqueGroupIdent ident
|
|
|
|
Project
|
|
ident TextCI
|
|
sharer SharerId
|
|
name Text Maybe
|
|
desc Text Maybe
|
|
nextTicket Int default='1'
|
|
|
|
UniqueProject ident sharer
|
|
|
|
Repo
|
|
ident TextCI
|
|
sharer SharerId
|
|
vcs VersionControlSystem default='VCSGit'
|
|
project ProjectId Maybe
|
|
desc Text Maybe
|
|
mainBranch Text default='master'
|
|
|
|
UniqueRepo ident sharer
|
|
|
|
PersonInGroup
|
|
person PersonId
|
|
group GroupId
|
|
|
|
UniquePersonInGroup person group
|
|
|
|
Ticket
|
|
project ProjectId
|
|
number Int
|
|
created UTCTime
|
|
creator PersonId
|
|
title Text
|
|
desc Text -- Assume this is Pandoc Markdown
|
|
done Bool
|
|
closed UTCTime
|
|
closer PersonId
|
|
discuss DiscussionId
|
|
|
|
UniqueTicket project number
|
|
|
|
Discussion
|
|
nextMessage Int
|
|
|
|
Message
|
|
author PersonId
|
|
created UTCTime
|
|
content Text -- Assume this is Pandoc Markdown
|
|
parent MessageId Maybe
|
|
root DiscussionId
|
|
number Int
|
|
|
|
UniqueMessage root number
|