From d4b21ed9d51e293f6c7b74e74b6557afa8e683cb Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Tue, 23 Aug 2022 22:46:54 +0300 Subject: [PATCH] Remove restriction on SRB being NonLinear for Pixel --- Color/src/Graphics/Pixel/ColorSpace.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Color/src/Graphics/Pixel/ColorSpace.hs b/Color/src/Graphics/Pixel/ColorSpace.hs index d40eeae..2af61ef 100644 --- a/Color/src/Graphics/Pixel/ColorSpace.hs +++ b/Color/src/Graphics/Pixel/ColorSpace.hs @@ -84,14 +84,14 @@ convertPixel = liftPixel convert -- | Constructor for a pixel in @sRGB@ color space -- -- @since 0.1.0 -pattern PixelSRGB :: e -> e -> e -> Pixel (SRGB 'NonLinear) e +pattern PixelSRGB :: e -> e -> e -> Pixel (SRGB l) e pattern PixelSRGB r g b = Pixel (SRGB (CM.ColorRGB r g b)) {-# COMPLETE PixelSRGB #-} -- | Constructor for a pixel in @sRGB@ color space with Alpha channel -- -- @since 0.1.0 -pattern PixelSRGBA :: e -> e -> e -> e -> Pixel (Alpha (SRGB 'NonLinear)) e +pattern PixelSRGBA :: e -> e -> e -> e -> Pixel (Alpha (SRGB l)) e pattern PixelSRGBA r g b a = Pixel (Alpha (SRGB (CM.ColorRGB r g b)) a) {-# COMPLETE PixelSRGBA #-}