yes

2024-12-24 17:07:32 +01:00 · 2024-12-24 17:07:32 +01:00 · b25345f3fd
commit b25345f3fd
parent 2674f130a3
1 changed files with 2 additions and 2 deletions
--- 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