From 5aebdf595bda9b5ce912fe258411c105634a05e9 Mon Sep 17 00:00:00 2001
From: Louis Dalibard <ontake@ontake.dev>
Date: Tue, 24 Dec 2024 17:03:01 +0100
Subject: [PATCH] yes

---
 palette-generator/Stylix/Palette.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/palette-generator/Stylix/Palette.hs b/palette-generator/Stylix/Palette.hs
index 4b97338..9069e2e 100644
--- a/palette-generator/Stylix/Palette.hs
+++ b/palette-generator/Stylix/Palette.hs
@@ -10,6 +10,10 @@ import Data.Vector ( (//) )
 import qualified Data.Vector as V
 import System.Random ( randomRIO )
 
+-- Adjust value according to coefficients
+stringToFloat :: (LAB(lightness), Float, Float, Float) -> LAB(lightness)
+stringToFloat (V,a,b,x) = V*(a*x+b)
+
 -- | Extract the primary scale from a pallete.
 primary :: V.Vector a -> V.Vector a
 primary = V.take 8