filterRedEyes :: RGB8 -> RGB8
filterRedEyes rgb
  | inRange (0.5, 1.5) (l/s) && filterHls (162, 7) (0.25, 1) (0.4, 1) rgb = rgb
  | otherwise = Hls.fromHls (0, l, 0)
  where (h, l, s) = Hls.toHls rgb
filterRedEyes :: RGB8 -> RGB8
filterRedEyes rgb
  | inRange (0.5, 1.5) (l/s) && filterHls (162, 7) (0.25, 1) (0.4, 1) rgb = rgb
  | otherwise = Hls.fromHls (0, l, 0)
  where (h, l, s) = Hls.toHls rgb
filterRedEyes rgb
  | inRange (0.5, 1.5) (l/s) && filterHls (162, 7) (0.25, 1) (0.4, 1) rgb = rgb
  | otherwise = Hls.fromHls (0, l, 0)
  where (h, l, s) = Hls.toHls rgb