Tagged.decoder, Tagged.encode

[Herteby]

Decoding is probably the most common place where you tag values, so I think it'd be nice to have a function like this, instead of having to use Decode.map Tagger.tag

decoder : Decoder a -> Decoder (Tagged tag a)
decoder =
    Decode.map Tagged.tag

And same for encoding:

encode : (a -> Value) -> Tagged tag a -> Value
encode encoder =
    Tagged.untag >> encoder