diff --git a/Handler/Modify.hs b/Handler/Modify.hs index 76fc62b..c712cc2 100644 --- a/Handler/Modify.hs +++ b/Handler/Modify.hs @@ -38,6 +38,7 @@ postModifyR bId = do , BeverageMl =. modBevMl nBev , BeverageAvatar =. modBevAvatar nBev ] + handleBarcodes (Right bId) (fromMaybe [] $ modBevBarcodes nBev) setMessageI MsgEditSuccess redirect $ SummaryR _ -> do