Externalize error messages

modules/webapp/src/main/elm/Data/Validated.elm

@@ -5,9 +5,12 @@ module Data.Validated exposing
     , map2
     , map3
     , map4
+    , toResult
     , value
     )
 
+-- TODO Remove this, use Result
+
 
 type Validated a
     = Valid a
@@ -15,6 +18,19 @@ type Validated a
     | Unknown a
 
 
+toResult : Validated a -> Result String a
+toResult va =
+    case va of
+        Valid a ->
+            Ok a
+
+        Invalid errs _ ->
+            Err (String.join ", " errs)
+
+        Unknown a ->
+            Ok a
+
+
 isInvalid : Validated a -> Bool
 isInvalid v =
     case v of