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

fix the types on the db entries

Browse Source
This commit is contained in:
Keagan McClelland
2021-11-03 17:00:09 -06:00
parent 85cf6f19a5
commit d23d56a7b1
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Queries.hs
View File

@@ -20,4 +20,4 @@ fetchAppVersion pkgId version = get (VersionRecordKey (PkgRecordKey pkgId) versi
createMetric :: MonadIO m => PkgId -> Version -> ReaderT SqlBackend m () createMetric :: MonadIO m => PkgId -> Version -> ReaderT SqlBackend m ()
createMetric appId version = do createMetric appId version = do
time <- liftIO getCurrentTime time <- liftIO getCurrentTime
insert_ $ Metric time (PkgRecordKey appId) (VersionRecordKey (PkgRecordKey appId) version) insert_ $ Metric time (PkgRecordKey appId) version

2
src/Model.hs
View File

@@ -54,7 +54,7 @@ OsVersion
Metric Metric
createdAt UTCTime createdAt UTCTime
pkgId PkgRecordId pkgId PkgRecordId
version VersionRecordId version Version
deriving Eq deriving Eq
deriving Show deriving Show