diff --git a/palette-generator/Stylix/Palette.hs b/palette-generator/Stylix/Palette.hs
index c854338..40ac88a 100644
--- a/palette-generator/Stylix/Palette.hs
+++ b/palette-generator/Stylix/Palette.hs
@@ -44,7 +44,7 @@ instance Species (String,String,String, Image PixelRGB8) (V.Vector LAB) where
     colour <- randomFromImage image
     return $ palette // [(index, colour)]
 
-  fitness (polarity_,_,, _) palette
+  fitness (polarity,_,_,_, _) palette
     = realToFrac $ accentDifference - (primarySimilarity/10) - scheme
       where
         -- The primary scale should use similar colours, to an extent.