summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-01-02 12:53:21 +0100
committerYorhel <git@yorhel.nl>2020-01-02 12:53:24 +0100
commit3d22bada02f2d10a2bde03813cca2445b3d36132 (patch)
tree175c23262c201f403c9902e2eb9f747723ce341a
parent36bfb736521e29b11d86fdd713cc36f969a56dba (diff)
ulist: Aaargh Fix another bug with unsetting progress labels
-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 fa2c54a8..f1f14e0f 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 && i <= 4 && i /= l) <| Set.toList model.tsel)
+ then (List.map (\i -> selfCmd (Toggle i False False)) <| List.filter (\i -> l >= 0 && l <= 4 && i >= 0 && i <= 4 && i /= l) <| Set.toList model.tsel)
else []
)