setColorKey :: (Word8, Word8, Word8) -> Image -> IO Image
setColorKey (r, g, b) surface = (SDL.mapRGB . SDL.surfaceGetPixelFormat) surface r g b >>= SDL.setColorKey surface [SDL.SrcColorKey] >> return surface
setColorKey :: (Word8, Word8, Word8) -> Image -> IO Image
setColorKey (r, g, b) surface = (SDL.mapRGB . SDL.surfaceGetPixelFormat) surface r g b >>= SDL.setColorKey surface [SDL.SrcColorKey] >> return surface
setColorKey (r, g, b) surface = (SDL.mapRGB . SDL.surfaceGetPixelFormat) surface r g b >>= SDL.setColorKey surface [SDL.SrcColorKey] >> return surface