diff options
Diffstat (limited to 'src/Xanthous/Data.hs')
| -rw-r--r-- | src/Xanthous/Data.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/Data.hs b/src/Xanthous/Data.hs index fdeb71beb5eb..dfad2cffd392 100644 --- a/src/Xanthous/Data.hs +++ b/src/Xanthous/Data.hs @@ -115,7 +115,7 @@ type Position = Position' Int instance Arbitrary a => Arbitrary (Position' a) where arbitrary = genericArbitrary - shrink = genericShrink + shrink (Position px py) = Position <$> shrink px <*> shrink py instance Num a => Semigroup (Position' a) where |