Skip to content

Commit d4e10cb

Browse files
committed
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)?
1 parent 1d872db commit d4e10cb

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/SDL/Video/Renderer.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -611,10 +611,10 @@ instance Storable a => Storable (Rectangle a) where
611611
poke (castPtr ptr) o
612612
poke (castPtr (ptr `plusPtr` sizeOf o)) s
613613

614-
newtype instance MVector s (Rectangle a) = MV_Rectangle (MVector s (Point V2 a, V2 a))
615-
newtype instance Vector (Rectangle a) = V_Rectangle (Vector (Point V2 a, V2 a))
614+
newtype instance UV.MVector s (Rectangle a) = MV_Rectangle (UV.MVector s (Point V2 a, V2 a))
615+
newtype instance UV.Vector (Rectangle a) = V_Rectangle (UV.Vector (Point V2 a, V2 a))
616616

617-
instance UV.Unbox a => GMV.MVector MVector (Rectangle a) where
617+
instance UV.Unbox a => GMV.MVector UV.MVector (Rectangle a) where
618618
{-# INLINE basicLength #-}
619619
{-# INLINE basicUnsafeSlice #-}
620620
{-# INLINE basicOverlaps #-}
@@ -632,7 +632,7 @@ instance UV.Unbox a => GMV.MVector MVector (Rectangle a) where
632632
basicInitialize (MV_Rectangle v) = GMV.basicInitialize v
633633
#endif
634634

635-
instance UV.Unbox a => GV.Vector Vector (Rectangle a) where
635+
instance UV.Unbox a => GV.Vector UV.Vector (Rectangle a) where
636636
{-# INLINE basicUnsafeFreeze #-}
637637
{-# INLINE basicUnsafeThaw #-}
638638
{-# INLINE basicLength #-}

0 commit comments

Comments
 (0)