From 7e76e9b602f200654a046b7c8c64e37d1309f62f Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 15 Jun 2023 13:12:15 +1200
Subject: [PATCH] Test whether colour conversion is giving me the issues on
 certain JPGs, nope!

---
 Mondrian.cabal                       | 6 ++++++
 lib/Graphics/Rendering/Rect/Image.hs | 1 -
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Mondrian.cabal b/Mondrian.cabal
index 561f537..6a07d2c 100644
--- a/Mondrian.cabal
+++ b/Mondrian.cabal
@@ -42,6 +42,12 @@ executable Mondrian
   hs-source-dirs:      app
   default-language:    Haskell2010
 
+executable Convert
+  main-is:              Convert.hs
+  build-depends:        base >= 4.13 && <4.14, JuicyPixels
+  hs-source-dirs:       app
+  default-language:     Haskell2010
+
 test-suite Mondrian-test
   default-language:    Haskell2010
   type:                exitcode-stdio-1.0
diff --git a/lib/Graphics/Rendering/Rect/Image.hs b/lib/Graphics/Rendering/Rect/Image.hs
index 41342c6..0782a7a 100644
--- a/lib/Graphics/Rendering/Rect/Image.hs
+++ b/lib/Graphics/Rendering/Rect/Image.hs
@@ -61,7 +61,6 @@ nilTexture = Texture 0 (0, 0)
 atlasLookup :: Text -> Atlas -> Texture
 atlasLookup key = fromMaybe nilTexture . HM.lookup key . unAtlas
 
--- OpenGL deals in CrCb not CbCr...
 -- Convert pixels to some flavour of RGBA
 convertDyn :: DynamicImage -> DynamicImage
 convertDyn (ImageY8 img) = ImageRGBA8 $ promoteImage img
-- 
2.30.2