Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 10:21:51 +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 8a43565da5
commit 7fc0a131ea
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 appId version = do
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
createdAt UTCTime
pkgId PkgRecordId
version VersionRecordId
version Version
deriving Eq
deriving Show