From 7381872d061e4f5c033b4e2ac4bef94f57d25440 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 3 Nov 2021 17:00:09 -0600
Subject: [PATCH] fix the types on the db entries

---
 src/Database/Queries.hs | 2 +-
 src/Model.hs            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Database/Queries.hs b/src/Database/Queries.hs
index 3cc58ac..4c674e5 100644
--- a/src/Database/Queries.hs
+++ b/src/Database/Queries.hs
@@ -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
diff --git a/src/Model.hs b/src/Model.hs
index be11a86..b0e2151 100644
--- a/src/Model.hs
+++ b/src/Model.hs
@@ -54,7 +54,7 @@ OsVersion
 Metric
     createdAt UTCTime
     pkgId PkgRecordId
-    version VersionRecordId
+    version Version
     deriving Eq
     deriving Show