From f94ee26b7fc73cf6b767b356e6def8b59c2878f7 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 12 Feb 2017 11:59:18 +0100 Subject: [PATCH] modify supplier address --- Handler/Supplier.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Handler/Supplier.hs b/Handler/Supplier.hs index fcba778..0a779a0 100644 --- a/Handler/Supplier.hs +++ b/Handler/Supplier.hs @@ -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