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
, resetForm = Just (const button)
}
nformid = case button of
LButton _ name -> {formid & id = formid.id <+++ "/" <+++ name <+++ "/" <+++ i}
PButton _ ref -> {formid & id = formid.id <+++ "/" <+++ i <+++ "/" <+++ ref}
LButton _ name -> {formid & id = formid.id <+++ iDataIdSeparator <+++ name <+++ iDataIdSeparator <+++ i}
PButton _ ref -> {formid & id = formid.id <+++ iDataIdSeparator <+++ i <+++ iDataIdSeparator <+++ ref}
TableFuncBut :: !(InIDataId [[(Button, a -> a)]]) !*HSt -> (Form (a -> a) ,!*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