https://gitlab.haskell.org/seatsugar2