Processed review comments

Author: mary-prince

src/Form/State.elm

@@ -44,11 +44,12 @@ type alias FormState =
 
 {-| Settings for forms initialization:
 
-  - `customFormats` where keys are the accepted custom formats (e.g., personal-number-se\_bank\_id) and values are validation functions for the formats.
+  - `customFormats` where keys are the accepted custom formats (e.g., personal-number-se, personal-number-no, personal-number-dk,
+    company-number-dk, personal-number-fi) and values are validation functions for the formats.
 
 -}
 type alias Settings =
-    { customFormats : Dict String (String -> Result String String)
+    { customFormats : Dict String (String -> Result () String)
     }
 
 

src/Form/Validation.elm

@@ -165,7 +165,7 @@ validateFormat settings format value =
                         |> Maybe.map (\validation -> validation value)
                         |> Maybe.withDefault (Result.Ok value)
             in
-            Result.mapError (\err -> error (Error.InvalidCustomFormat err)) customValidation
+            Result.mapError (\_ -> error (Error.InvalidCustomFormat customFormat)) customValidation
 
 
 validatePattern : String -> String -> Validation String