Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 11:51:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

handle inserting unique apps and versions

Browse Source
This commit is contained in:
Lucy Cifferello
2020-06-22 17:27:31 -06:00
parent 69dc5922cf
commit d3929d8b88
2 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Database/Queries.hs
View File

@@ -16,10 +16,10 @@ fetchApp appId = selectFirst [SAppAppId ==. appId] []
fetchAppVersion :: MonadIO m => AppVersion -> Key SApp -> ReaderT SqlBackend m (Maybe (Entity Version))
fetchAppVersion appVersion appId = selectFirst [VersionNumber ==. appVersion, VersionAppId ==. appId] []
createApp :: MonadIO m => AppIdentifier -> StoreApp -> ReaderT SqlBackend m (Key SApp)
createApp :: MonadIO m => AppIdentifier -> StoreApp -> ReaderT SqlBackend m (Maybe (Key SApp))
createApp appId StoreApp{..} = do
time <- liftIO getCurrentTime
insert $ SApp
insertUnique $ SApp
time
Nothing
storeAppTitle
@@ -28,10 +28,10 @@ createApp appId StoreApp{..} = do
storeAppDescLong
storeAppIconType
createAppVersion :: MonadIO m => Key SApp -> VersionInfo -> ReaderT SqlBackend m (Key Version)
createAppVersion :: MonadIO m => Key SApp -> VersionInfo -> ReaderT SqlBackend m (Maybe (Key Version))
createAppVersion sId VersionInfo{..} = do
time <- liftIO getCurrentTime
insert $ Version
insertUnique $ Version
time
Nothing
sId