ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

16 iso 15

Browse Source
This commit is contained in:
Willem Van Onsem 2021-02-16 13:27:46 +01:00
parent ffdd86df1c
commit 9eaa5e5cb5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Graphics/Vty/Attributes/Color240.hs
View File

@ -49,7 +49,7 @@ simpleColor_ :: Integral i => Word8 -> i -> Word8
simpleColor_ e c
| c <= 0 = 0
| c <= 95 = 1
| c <= 255 = fromIntegral ((c-15) `div` 40)
| c <= 255 = fromIntegral ((c-16) `div` 40)
| otherwise = e
-- | Create a RGB triple from a value in the Color240 set.