nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

modify supplier address

Browse source
This commit is contained in:
nek0 2017-02-12 11:59:18 +01:00
parent 3a53ab0f24
commit f94ee26b7f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Supplier.hs
View file

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