elm.DateOnly018.mustache Maven / Gradle / Ivy

Go to download
module DateOnly exposing (DateOnly, decoder, encode, toString)

import Date
import Date.Extra exposing (fromIsoString, toFormattedString)
import Json.Decode as Decode exposing (Decoder)
import Json.Encode as Encode
import Result


type alias DateOnly =
    Date.Date


decoder : Decoder DateOnly
decoder =
    Decode.string
        |> Decode.andThen decodeIsoString


encode : DateOnly -> Encode.Value
encode =
    Encode.string << toString


decodeIsoString : String -> Decoder DateOnly
decodeIsoString str =
    case fromIsoString str of
        Result.Ok date ->
            Decode.succeed date

        Result.Err msg ->
            Decode.fail msg


toString : DateOnly -> String
toString =
    toFormattedString "yyyy-MM-dd"