From 303c2716f1c742048abbd635e61c1737d597bfb5 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 11 Oct 2015 21:03:25 +0200
Subject: [PATCH] fixed missing ident field in supplier modification form

---
 Handler/Supplier.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Handler/Supplier.hs b/Handler/Supplier.hs
index 4e5ff8b..398d35d 100755
--- a/Handler/Supplier.hs
+++ b/Handler/Supplier.hs
@@ -41,7 +41,8 @@ newSupplierForm = renderDivs $ Supplier
       optionsPairs $ map (\ent -> ((avatarIdent $ entityVal ent), entityKey ent)) ents
 
 data SupConf = SupConf
-  { supConfAddr :: Textarea
+  { supConfIdent :: Text
+  , supConfAddr :: Textarea
   , supConfTel :: Text
   , supConfEmail :: Text
   , supConfCustomerId :: Text
@@ -86,7 +87,8 @@ postModifySupplierR sId = do
 
 modifySupplierForm :: Supplier -> Form SupConf
 modifySupplierForm sup = renderDivs $ SupConf
-  <$> areq textareaField (fieldSettingsLabel MsgAddress) (Just $ supplierAddress sup)
+  <$> areq textField (fieldSettingsLabel MsgName) (Just $ supplierIdent sup)
+  <*> areq textareaField (fieldSettingsLabel MsgAddress) (Just $ supplierAddress sup)
   <*> areq textField (fieldSettingsLabel MsgTelNr) (Just $ supplierTel sup)
   <*> areq textField (fieldSettingsLabel MsgEmail) (Just $ supplierEmail sup)
   <*> areq textField (fieldSettingsLabel MsgCustomerId) (Just $ supplierCustomerId sup)