module Rainbow.Colors.Shrinkers where

import qualified Rainbow.Colors as C
import qualified Rainbow.Types.Shrinkers as S
import qualified Prelude.Shrinkers

both :: C.Both -> [C.Both]
both (C.Both c8 mc256) =
  zipWith C.Both (S.color8 c8)
    (Prelude.Shrinkers.maybe S.color256 mc256)