Optic for Representation.

[ibnuda]

Sometimes, I need to set different kind of Representation. For example, when I need to set the Representation type to has some different languages.

I think it will be great if Representation module has public optic function.

Perhaps something like this:

let myRep mediaType data =
   Representation.empty
   |> Optic.set Representation.mediaType mediaType
   |> Optic.set Representation.data data