Support null descriptions.

xgrommx-forks · May 8, 2017 · ea5a927 · ea5a927
1 parent b8d4be3
commit ea5a927
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Article.elm b/src/Data/Article.elm
@@ -80,7 +80,7 @@ decoderWithBody =
 baseArticleDecoder : Decoder (a -> Article a)
 baseArticleDecoder =
     decode Article
-        |> required "description" Decode.string
+        |> required "description" (Decode.map (Maybe.withDefault "") (Decode.nullable Decode.string))
         |> required "slug" (Decode.map Slug Decode.string)
         |> required "title" Decode.string
         |> required "tagList" (Decode.list Decode.string)