summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elm/UList/LabelEdit.elm2
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 []
)