Example SDL2 haskell code