filterHls :: Range -> Range -> Range -> RGB8 -> Bool
filterHls hr lr sr rgb =
  inRange hr h && inRange lr l && inRange sr s
  where (h, l, s) = Hls.toHls rgb
filterHls :: Range -> Range -> Range -> RGB8 -> Bool
filterHls hr lr sr rgb =
  inRange hr h && inRange lr l && inRange sr s
  where (h, l, s) = Hls.toHls rgb
filterHls hr lr sr rgb =
  inRange hr h && inRange lr l && inRange sr s
  where (h, l, s) = Hls.toHls rgb