Add classifier settings

2025-06-23 10:58:26 +00:00 · 2020-08-28 22:17:49 +02:00
parent 53fdb100ab
commit 8c4f2e702b
17 changed files with 649 additions and 56 deletions
--- a/modules/webapp/src/main/elm/Data/Validated.elm
+++ b/modules/webapp/src/main/elm/Data/Validated.elm
@ -1,5 +1,6 @@
 module Data.Validated exposing
    ( Validated(..)
+    , isInvalid
    , map
    , map2
    , map3
@ -14,6 +15,19 @@ type Validated a
    | Unknown a


+isInvalid : Validated a -> Bool
+isInvalid v =
+    case v of
+        Valid _ ->
+            False
+
+        Invalid _ _ ->
+            True
+
+        Unknown _ ->
+            False
+
+
 value : Validated a -> a
 value va =
    case va of