Add inventory line view

src/Jon/Server.hs

@@ -67,6 +67,9 @@ type SnackAPI =
         :<|> "updateSnack"          :> Summary "Update a snack"
                                     :> ReqBody '[JSON] UpdateSnackP
                                     :> Post '[JSON] SnackId
+        :<|> "deleteSnack"          :> Summary "Delete a snack"
+                                    :> ReqBody '[JSON] DeleteSnackP
+                                    :> PostNoContent
 
 data GetUnsoundBarcodesP = GetUnsoundBarcodesP
     { location :: LocationId
@@ -135,6 +138,10 @@ data UpdateSnackP = UpdateSnackP
     , taxGroup :: TaxGroupId
     } deriving (Generic, FromJSON, ToSchema)
 
+data DeleteSnackP = DeleteSnackP
+    { snack :: SnackId
+    } deriving (Generic, FromJSON, ToSchema)
+
 -- Orphan instances for database types
 -- needed for serialization and swagger doc
 
@@ -197,6 +204,7 @@ server conn =
     :<|> createSnack
     :<|> getSnacksByItemId
     :<|> updateSnack
+    :<|> deleteSnack
     where
         getUnsoundBarcodes :: GetUnsoundBarcodesP -> Handler [UnsoundBarcodeDTO]
         getUnsoundBarcodes params = do
@@ -252,6 +260,10 @@ server conn =
                 params.price
                 params.taxGroup
 
+        deleteSnack params = do
+            liftIO $ Queries.runFunction conn $ Queries.snackDelete params.snack
+            pure NoContent
+
 jonSwaggerDoc :: Swagger
 jonSwaggerDoc = toSwagger (Proxy :: Proxy JonAPI)
     & info . title   .~ "jon API"