mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 10:21:51 +00:00
36 lines
742 B
Haskell
36 lines
742 B
Haskell
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
module Model where
|
|
|
|
import Startlude
|
|
import Database.Persist.TH
|
|
import Lib.Types.Semver
|
|
|
|
|
|
share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
|
|
SApp
|
|
createdAt UTCTime
|
|
updatedAt UTCTime Maybe
|
|
title Text
|
|
appId Text
|
|
descShort Text
|
|
descLong Text
|
|
version AppVersion
|
|
releaseNotes Text
|
|
iconType Text
|
|
UniqueVersion version
|
|
deriving Eq
|
|
deriving Show
|
|
|
|
Metric
|
|
createdAt UTCTime
|
|
appId SAppId Maybe default=null
|
|
event Text
|
|
deriving Eq
|
|
deriving Show
|
|
|]
|