diff options
author | Yorhel <git@yorhel.nl> | 2022-03-31 10:28:13 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2022-03-31 10:28:13 +0200 |
commit | e5ee22d027c0b303f961ef3de5f0800a2170da7d (patch) | |
tree | a7285d3fce4812f316b004b6129ee3c087e6be9d /elm | |
parent | 9583a1b9116724908abe99392581b83d9d71e746 (diff) |
UserEdit: fix inserting multiple languages when "original language" is selected multiple times
Diffstat (limited to 'elm')
-rw-r--r-- | elm/User/Edit.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elm/User/Edit.elm b/elm/User/Edit.elm index 931edd8c..938cf9ed 100644 --- a/elm/User/Edit.elm +++ b/elm/User/Edit.elm @@ -167,7 +167,7 @@ updateLangPrefs msg model = LangAdd -> let new = { lang = Just "en", official = True, original = False, latin = False } in if List.any (\e -> e.lang == Nothing) model - then List.concatMap (\e -> if e.lang == Nothing then [new, e] else [e]) model + then List.foldl (\e l -> if e.lang == Nothing && not (List.any (\x -> x.lang == Nothing) l) then l ++ [new, e] else l ++ [e]) [] model else model ++ [new] LangDel n -> delidx n model LangSet n s -> modidx n (\e -> { e | lang = if s == "" then Nothing else Just s }) model |