incrementColor :: Word8 -> Inc -> Word8
incrementColor w i
    | i == Add && w == 255 = 244
    | i == Subtract && w == 0 = 1
    | i == Add = w + 5
    | i == Subtract = w - 5
    | otherwise = w
incrementColor :: Word8 -> Inc -> Word8
incrementColor w i
    | i == Add && w == 255 = 244
    | i == Subtract && w == 0 = 1
    | i == Add = w + 5
    | i == Subtract = w - 5
    | otherwise = w
incrementColor w i
    | i == Add && w == 255 = 244
    | i == Subtract && w == 0 = 1
    | i == Add = w + 5
    | i == Subtract = w - 5
    | otherwise = w