loadImage :: String -> IO Image
loadImage filename = SDLi.load filename >>= SDL.displayFormat
loadImage :: String -> IO Image
loadImage filename = SDLi.load filename >>= SDL.displayFormat
loadImage filename = SDLi.load filename >>= SDL.displayFormat