Commit 5daa042f authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent ab9f1ba1
...@@ -339,8 +339,8 @@ FuncButNr i (init,formid) hst ...@@ -339,8 +339,8 @@ FuncButNr i (init,formid) hst
, resetForm = Just (const button) , resetForm = Just (const button)
} }
nformid = case button of nformid = case button of
LButton _ name -> {formid & id = formid.id <+++ "/" <+++ name <+++ "/" <+++ i} LButton _ name -> {formid & id = formid.id <+++ iDataIdSeparator <+++ name <+++ iDataIdSeparator <+++ i}
PButton _ ref -> {formid & id = formid.id <+++ "/" <+++ i <+++ "/" <+++ ref} PButton _ ref -> {formid & id = formid.id <+++ iDataIdSeparator <+++ i <+++ iDataIdSeparator <+++ ref}
TableFuncBut :: !(InIDataId [[(Button, a -> a)]]) !*HSt -> (Form (a -> a) ,!*HSt) TableFuncBut :: !(InIDataId [[(Button, a -> a)]]) !*HSt -> (Form (a -> a) ,!*HSt)
TableFuncBut inIDataId hSt TableFuncBut inIDataId hSt
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment