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

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

diff --git a/palette-generator/Stylix/Palette.hs b/palette-generator/Stylix/Palette.hs
index 78f70a2..b8b835c 100644
--- a/palette-generator/Stylix/Palette.hs
+++ b/palette-generator/Stylix/Palette.hs
@@ -11,8 +11,8 @@ import qualified Data.Vector as V
 import System.Random ( randomRIO )
 
 -- Adjust value according to coefficients
-adjustValue :: (Int, Float, Float, Float) -> Int
-adjustValue (V,a,b,x) = V*(a*x+b)
+adjustValue :: Int -> Float->  Float -> Float -> Int
+adjustValue v a b x = v*(a*x+b)
 
 -- | Extract the primary scale from a pallete.
 primary :: V.Vector a -> V.Vector a