diff options
-rw-r--r-- | elm/UList/LabelEdit.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elm/UList/LabelEdit.elm b/elm/UList/LabelEdit.elm index 6d0a4ea5..fa2c54a8 100644 --- a/elm/UList/LabelEdit.elm +++ b/elm/UList/LabelEdit.elm @@ -69,7 +69,7 @@ update msg model = Api.post "/u/ulist/setlabel.json" (GLE.encode { uid = model.uid, vid = model.vid, label = l, applied = b }) (Saved l b) -- Unselect other progress labels (1..4) when setting a progress label :: if cascade - then (List.map (\i -> selfCmd (Toggle i False False)) <| List.filter (\i -> i >= 0 && l <= 4 && i /= l) <| Set.toList model.tsel) + then (List.map (\i -> selfCmd (Toggle i False False)) <| List.filter (\i -> i >= 0 && i <= 4 && i /= l) <| Set.toList model.tsel) else [] ) |