From 75aa816dedb09e0e1bc395f6e9ae94e1b9e993a1 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 28 May 2020 00:11:00 +0200 Subject: Missing files + New Control UI. --- src/shared/elm/Shared/Util/Set.elm | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/shared/elm/Shared/Util/Set.elm (limited to 'src/shared/elm/Shared/Util') diff --git a/src/shared/elm/Shared/Util/Set.elm b/src/shared/elm/Shared/Util/Set.elm new file mode 100644 index 0000000..d9368cd --- /dev/null +++ b/src/shared/elm/Shared/Util/Set.elm @@ -0,0 +1,11 @@ +module Shared.Util.Set exposing (..) + +import Set + +import List + +toggle : comparable -> (Set.Set comparable) -> (Set.Set comparable) +toggle e set = + if (Set.member e set) + then (Set.remove e set) + else (Set.insert e set) -- cgit v1.2.3-70-g09d2