Simple SDL based game in Haskell