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