From d4e10cb13932110b44c2aa1cafdb20bf69de6c3f Mon Sep 17 00:00:00 2001 From: sheaf Date: Fri, 14 Nov 2025 23:11:43 +0100 Subject: [PATCH] Fix qualification in SDL.Video.Renderer This module didn't compile for me because unqualified Vector/MVector were out of scope. Maybe platform-specific (CPP)? --- src/SDL/Video/Renderer.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/SDL/Video/Renderer.hs b/src/SDL/Video/Renderer.hs index 501d7e1..098bc64 100644 --- a/src/SDL/Video/Renderer.hs +++ b/src/SDL/Video/Renderer.hs @@ -611,10 +611,10 @@ instance Storable a => Storable (Rectangle a) where poke (castPtr ptr) o poke (castPtr (ptr `plusPtr` sizeOf o)) s -newtype instance MVector s (Rectangle a) = MV_Rectangle (MVector s (Point V2 a, V2 a)) -newtype instance Vector (Rectangle a) = V_Rectangle (Vector (Point V2 a, V2 a)) +newtype instance UV.MVector s (Rectangle a) = MV_Rectangle (UV.MVector s (Point V2 a, V2 a)) +newtype instance UV.Vector (Rectangle a) = V_Rectangle (UV.Vector (Point V2 a, V2 a)) -instance UV.Unbox a => GMV.MVector MVector (Rectangle a) where +instance UV.Unbox a => GMV.MVector UV.MVector (Rectangle a) where {-# INLINE basicLength #-} {-# INLINE basicUnsafeSlice #-} {-# INLINE basicOverlaps #-} @@ -632,7 +632,7 @@ instance UV.Unbox a => GMV.MVector MVector (Rectangle a) where basicInitialize (MV_Rectangle v) = GMV.basicInitialize v #endif -instance UV.Unbox a => GV.Vector Vector (Rectangle a) where +instance UV.Unbox a => GV.Vector UV.Vector (Rectangle a) where {-# INLINE basicUnsafeFreeze #-} {-# INLINE basicUnsafeThaw #-} {-# INLINE basicLength #-}