How can I refactor two functions into one function that has a generic parameter?
Example:
getVideo : Video -> Post
getVideo video =
let
(Video post) =
video
in
post
getPodcast : Podcast -> Post
getPodcast podcast =
let
(Podcast post) =
podcast
in
post
I would like to do something like this:
getPodcast : 'a -> Post
getPodcast 'a =
let
('a post) =
'a
in
post
Appendix:
type Video
= Video Post
type Podcast
= Podcast Post