This is a Haskell implementation of an mpv client using its JSON IPC API, built with polysemy.
⚠ Under Construction ⚠
prog =
interpretMpvNative do
withMpv do
Mpv.command (Command.Load [relfile|vid.mkv|])
Mpv.command (Command.Seek 50 (SeekFlags Absolute SeekFlags.Percent Exact))
Mpv.command Command.Stop