loadImageTransparent :: String -> (Word8, Word8, Word8) -> IO Image
loadImageTransparent filename colorKey = loadImage filename >>= setColorKey colorKey
loadImageTransparent :: String -> (Word8, Word8, Word8) -> IO Image
loadImageTransparent filename colorKey = loadImage filename >>= setColorKey colorKey
loadImageTransparent filename colorKey = loadImage filename >>= setColorKey colorKey