yes

palette-generator/Stylix/Palette.hs

@@ -11,8 +11,8 @@ 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)
+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