diff --git a/src/Database/Queries.hs b/src/Database/Queries.hs
index 231acc6..fe9d2d9 100644
--- a/src/Database/Queries.hs
+++ b/src/Database/Queries.hs
@@ -116,6 +116,7 @@ import Startlude (
     ($>),
     (<$>), Int,
  )
+import Database.Esqueleto.Experimental ((>.))
 
 serviceQuerySource ::
     (MonadResource m, MonadIO m) =>
@@ -149,7 +150,7 @@ serviceQuerySource mCat query mOsArch mRam = selectSource $ do
             where_ $ cat ^. CategoryName ==. val category &&. queryInMetadata query service
             where_ (service ^. VersionRecordNumber ==. vp ^. VersionPlatformVersionNumber)
             where_ (vp ^. VersionPlatformArch ==. val mOsArch)
-            where_ (vp ^. VersionPlatformRam ==. val mRam)
+            where_ (vp ^. VersionPlatformRam >. val mRam)
             where_ (pr ^. PkgRecordHidden ==. val False)
             pure service
     groupBy (service ^. VersionRecordPkgId, service ^. VersionRecordNumber)
diff --git a/src/Lib/Types/Manifest.hs b/src/Lib/Types/Manifest.hs
index 8bfeb1c..8cd87ae 100644
--- a/src/Lib/Types/Manifest.hs
+++ b/src/Lib/Types/Manifest.hs
@@ -111,8 +111,8 @@ testManifest =
   },
   "hardware-requirements" {
     "device": {
-      processor: "",
-      display: ""
+      processor: "intel",
+      display: "r'^{.*}$'"
     },
     "ram": "8"