Add getUnsoundBarcodes route

src/Jon/Garfield/Queries.hs

@@ -18,6 +18,13 @@ import Jon.Garfield.Types
 
 -- Selects
 
+runSelect
+    :: (FromBackendRow Postgres (QExprToIdentity e), Projectible Postgres e)
+    => Connection
+    -> Q Postgres db QBaseScope e
+    -> IO [QExprToIdentity e]
+runSelect conn q = runBeamPostgresDebug putStrLn conn $ runSelectReturningList $ select q
+
 overviewItems
     :: Q Postgres GarfieldDb s (OverviewT (QExpr Postgres s), InventoryItemT (QExpr Postgres s))
 overviewItems = do