diff --git a/palette-generator/Stylix/Palette.hs b/palette-generator/Stylix/Palette.hs
index cadf8e7..bce7f51 100644
--- a/palette-generator/Stylix/Palette.hs
+++ b/palette-generator/Stylix/Palette.hs
@@ -12,7 +12,7 @@ import System.Random ( randomRIO )
 
 -- Adjust value according to coefficients
 adjustValue :: Float -> Float->  Float -> Float -> Int
-adjustValue v a b x = round v*(a*x+b)
+adjustValue v a b x = round (v*(a*x+b))
 
 -- | Extract the primary scale from a pallete.
 primary :: V.Vector a -> V.Vector a