summaryrefslogtreecommitdiff
path: root/elm/ColSelect.elm
diff options
context:
space:
mode:
Diffstat (limited to 'elm/ColSelect.elm')
-rw-r--r--elm/ColSelect.elm9
1 files changed, 1 insertions, 8 deletions
diff --git a/elm/ColSelect.elm b/elm/ColSelect.elm
index d8be329b..049cc369 100644
--- a/elm/ColSelect.elm
+++ b/elm/ColSelect.elm
@@ -68,14 +68,7 @@ update msg model =
view : Model -> Html Msg
view model =
- let
- item (cid, cname) =
- let selid = "colselect_" ++ cid
- in
- li [ class "linkradio" ]
- [ inputCheck selid (Set.member cid model.sel) (Toggle cid)
- , label [ for selid ] [ text cname ]
- ]
+ let item (cid, cname) = li [ ] [ linkRadio (Set.member cid model.sel) (Toggle cid) [ text cname ] ]
in
DD.view model.dd Api.Normal
(text "Select columns")