add codeowners

Author: kutyel

CODEOWNERS

@@ -0,0 +1 @@
+@scrive/elm-developers

src/Json/Schema/Form/Fields.elm

@@ -21,6 +21,7 @@ import Html.Attributes
         )
 import Html.Attributes.Extra as Attr
 import Html.Events exposing (preventDefaultOn)
+import Html.Extra as Html
 import Html.Keyed
 import Json.Decode
 import Json.Schema.Definitions
@@ -288,13 +289,11 @@ checkbox options path schema f =
 
         meta : List (Html F.Msg)
         meta =
-            [ fieldDescription schema ]
-                |> List.filterMap identity
+            Maybe.values [ fieldDescription schema ]
 
         feedback : List (Html F.Msg)
         feedback =
-            [ liveError options.errors f ]
-                |> List.filterMap identity
+            Maybe.values [ liveError options.errors f ]
     in
     div
         [ classList
@@ -520,13 +519,11 @@ field options schema f content =
     let
         meta : List (Html F.Msg)
         meta =
-            [ fieldDescription schema ]
-                |> List.filterMap identity
+            Maybe.values [ fieldDescription schema ]
 
         feedback : List (Html F.Msg)
         feedback =
-            [ liveError options.errors f ]
-                |> List.filterMap identity
+            Maybe.values [ liveError options.errors f ]
     in
     div
         [ classList
@@ -569,15 +566,11 @@ group options path schema form =
 
         meta : List (Html msg)
         meta =
-            [ Maybe.map (\str -> p [] [ text str ]) schema.description
-            ]
-                |> List.filterMap identity
+            schema.description |> Html.viewMaybe (\str -> p [] [ text str ]) |> List.singleton
 
         feedback : List (Html F.Msg)
         feedback =
-            [ liveError options.errors f
-            ]
-                |> List.filterMap identity
+            Maybe.values [ liveError options.errors f ]
     in
     div
         [ classList

src/Json/Schema/Form/Validation.elm

@@ -46,6 +46,7 @@ import Json.Schema.Form.Error exposing (ErrorValue(..))
 import Json.Schema.Form.Format exposing (Format)
 import Json.Schema.Form.Regex
 import Json.Schema.Form.Value exposing (Value(..))
+import Maybe.Extra as Maybe
 import Regex
 import Set
 
@@ -462,7 +463,7 @@ switch formats schemata =
                             else
                                 Nothing
                         )
-                    |> List.filterMap identity
+                    |> Maybe.values
                     |> List.head
                     |> Maybe.withDefault (fail (customError Invalid))
             )