Commit 2d9a9c6e authored by Camil Staps's avatar Camil Staps 🐧

Export toLabelText to generate label names from e.g. record field names

parent 06a2a439
Pipeline #36685 passed with stage
in 6 minutes and 55 seconds
......@@ -392,7 +392,7 @@ where
tooltip = maybe "-" (\(JSONString s) -> s) ('DM'.get HINT_ATTRIBUTE attr)
removeLabelAttribute = layoutSubUIs (SelectAND SelectChildren (SelectByHasAttribute "label"))
(delUIAttributes (SelectKeys ["label"]))
(delUIAttributes (SelectKeys ["label"]))
toLabelText :: !String -> String
toLabelText label = {c \\ c <- [toUpper lname : addspace lnames]}
......
Markdown is supported
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