From 9eaa5e5cb5498ef8fbfdebd34ef8dec083b468fa Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Tue, 16 Feb 2021 13:27:46 +0100
Subject: [PATCH] 16 iso 15

---
 src/Graphics/Vty/Attributes/Color240.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Graphics/Vty/Attributes/Color240.hs b/src/Graphics/Vty/Attributes/Color240.hs
index dded5d4..8c32ff5 100644
--- a/src/Graphics/Vty/Attributes/Color240.hs
+++ b/src/Graphics/Vty/Attributes/Color240.hs
@@ -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.