16 iso 15
commit9eaa5e5cb5498ef8fbfdebd34ef8dec083b468fa
authorWillem Van Onsem <vanonsem.willem@gmail.com>
dateTue 16 Feb 2021, 13:27 (6 years ago)
parentffdd86d
src/Graphics/Vty/Attributes/Color240.hs+1−1
@@ -49,7 +49,7 @@ simpleColor_ :: Integral i => Word8 -> i -> Word8
4949simpleColor_ e c
5050 | c <= 0 = 0
5151 | c <= 95 = 1
52− | c <= 255 = fromIntegral ((c-15) `div` 40)
52+ | c <= 255 = fromIntegral ((c-16) `div` 40)
5353 | otherwise = e
5454
5555-- | Create a RGB triple from a value in the Color240 set.