Skip to content

Commit 2cefc66

Browse files
Shimuuarlehins
authored andcommitted
Add MINIMAL pragma to Vector & MVector type classes
Fixes #11
1 parent 5007f13 commit 2cefc66

File tree

2 files changed

+5
-1
lines changed

2 files changed

+5
-1
lines changed

Data/Vector/Generic/Base.hs

+2-1
Original file line numberDiff line numberDiff line change
@@ -145,4 +145,5 @@ class MVector (Mutable v) a => Vector v a where
145145
{-# INLINE elemseq #-}
146146
elemseq _ = \_ x -> x
147147

148-
148+
{-# MINIMAL basicUnsafeFreeze, basicUnsafeThaw, basicLength,
149+
basicUnsafeSlice, basicUnsafeIndexM #-}

Data/Vector/Generic/Mutable/Base.hs

+3
Original file line numberDiff line numberDiff line change
@@ -145,3 +145,6 @@ class MVector v a where
145145
where
146146
n = basicLength v
147147

148+
{-# MINIMAL basicLength, basicUnsafeSlice, basicOverlaps,
149+
basicUnsafeNew, basicInitialize, basicUnsafeRead,
150+
basicUnsafeWrite #-}

0 commit comments

Comments
 (0)