From f2a3c23634c7a5f8c23f68f24ff5dde95d472e16 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Mon, 3 Feb 2025 16:24:25 -0600
Subject: Working on assets

---
 src/WWW/Colors/QQ.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/WWW/Colors/QQ.hs')

diff --git a/src/WWW/Colors/QQ.hs b/src/WWW/Colors/QQ.hs
index 281a93a..f1dc256 100644
--- a/src/WWW/Colors/QQ.hs
+++ b/src/WWW/Colors/QQ.hs
@@ -20,7 +20,7 @@ data Color' = Color' !Double !Double !Double !Double
     deriving Lift
 
 instance Color Color' where
-    toAlphaColour (Color' r g b a) = withOpacity (sRGB r g b) a
+    toAlphaColour (Color' r g b a) = sRGB r g b `withOpacity` a
     fromAlphaColour col =
         let a = alphaChannel col
             RGB r g b = toSRGB $ fromAlphaColour @(Colour Double) col
-- 
cgit v1.2.3