in older channels email was conditional (#194)

fixes #193
This commit is contained in:
Rok Garbas 2020-09-17 17:32:30 +02:00 committed by GitHub
parent 038ee96a5b
commit 1ecf99c711
Failed to generate hash of commit

View file

@ -78,7 +78,7 @@ type alias ResultPackageLicense =
type alias ResultPackageMaintainer = type alias ResultPackageMaintainer =
{ name : Maybe String { name : Maybe String
, email : String , email : Maybe String
, github : Maybe String , github : Maybe String
} }
@ -342,7 +342,7 @@ viewResultItemDetails channel item =
Nothing -> Nothing ->
"#" "#"
] ]
[ text <| Maybe.withDefault "" maintainer.name ++ " <" ++ maintainer.email ++ ">" ] [ text <| Maybe.withDefault "" maintainer.name ++ " <" ++ Maybe.withDefault "" maintainer.email ++ ">" ]
asPre value = asPre value =
pre [] [ text value ] pre [] [ text value ]
@ -461,7 +461,7 @@ decodeResultPackageMaintainer : Json.Decode.Decoder ResultPackageMaintainer
decodeResultPackageMaintainer = decodeResultPackageMaintainer =
Json.Decode.map3 ResultPackageMaintainer Json.Decode.map3 ResultPackageMaintainer
(Json.Decode.field "name" (Json.Decode.nullable Json.Decode.string)) (Json.Decode.field "name" (Json.Decode.nullable Json.Decode.string))
(Json.Decode.field "email" Json.Decode.string) (Json.Decode.field "email" (Json.Decode.nullable Json.Decode.string))
(Json.Decode.field "github" (Json.Decode.nullable Json.Decode.string)) (Json.Decode.field "github" (Json.Decode.nullable Json.Decode.string))