src/Library/Json/Encode/Ext.elm at main · tokono.ma/diffuse

tokono.ma / diffuse

A music player that connects to your cloud/distributed storage.

diffuse / src / Library / Json / Encode / Ext.elm

at main 238 B view raw

 1module Json.Encode.Ext exposing (..)
 2
 3import Json.Encode as Encode
 4
 5
 6encodeMaybe : Maybe a -> (a -> Encode.Value) -> Encode.Value
 7encodeMaybe maybe encoder =
 8    maybe
 9        |> Maybe.map encoder
10        |> Maybe.withDefault Encode.null