Add a few calls

src/Jon/Garfield/Queries.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedRecordDot #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeApplications #-}
@@ -69,6 +70,12 @@ locations = all_ garfieldDb.locations
 
 -- Inserts
 
+runIns
+    :: Connection
+    -> SqlInsert Postgres table
+    -> IO ()
+runIns conn i = runBeamPostgresDebug putStrLn conn $ runInsert i
+
 transfer
     :: InventoryItemId -- ^ to
     -> InventoryItemId -- ^ from
@@ -94,6 +101,9 @@ transfer from to amount
 
 type SqlFunction a = Connection -> IO a
 
+runFunction :: Connection -> SqlFunction a -> IO a
+runFunction conn f = f conn
+
 snackDelete :: SnackId -> SqlFunction ()
 snackDelete snack conn = do
     [Only ()] <- query conn "SELECT garfield.snack_delete(?)" (Only $ snack.unSnackId)
@@ -105,6 +115,18 @@ snackCreate name barcode price taxGroup location conn = do
         (name, barcode, price, taxGroup.unTaxGroupId, location.unLocationId)
     pure $ mkSnackId rawSnackId
 
+snackUpdate
+    :: SnackId
+    -> Text -- Name
+    -> Text -- Barcode
+    -> Scientific
+    -> TaxGroupId
+    -> SqlFunction SnackId
+snackUpdate snack name barcode price taxGroup conn = do
+    [Only rawSnackId] <- query conn "SELECT garfield.snack_update(?, ?, ?, ?, ?)"
+        (snack.unSnackId, name, barcode, price, taxGroup.unTaxGroupId)
+    pure $ mkSnackId rawSnackId
+
 inventoryMapSnack :: SnackId -> InventoryItemId -> SqlFunction ()
 inventoryMapSnack snack item conn = do
     [Only ()] <- query conn "SELECT garfield.inventory_map_snack(?, ?)" (snack.unSnackId, item.unInventoryItemId)