@@ -206,7 +206,7 @@ instance Random Small where
206206 random = randomR (minBound,maxBound)
207207
208208instance Arbitrary Small where
209− arbitrary = arbitrarySizedIntegral
209+ arbitrary = choose (minBound, maxBound)
210210 shrink = shrinkIntegral
211211
212212integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)