modify supplier address

This commit is contained in:
nek0 2017-02-12 11:59:18 +01:00
parent 3a53ab0f24
commit f94ee26b7f

View file

@ -78,7 +78,8 @@ postModifySupplierR sId = do
case res of
FormSuccess msup -> do
runDB $ update sId
[ SupplierAddress =. supConfAddr msup
[ SupplierIdent =. supConfIdent msup
, SupplierAddress =. supConfAddr msup
, SupplierTel =. supConfTel msup
, SupplierEmail =. supConfEmail msup
, SupplierCustomerId =. supConfCustomerId msup