Fix Ratio instance

Bodigrim · Jul 12, 2013 · af816c4 · af816c4
1 parent 68aa7e5
commit af816c4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Test/SmallCheck/Series.hs b/Test/SmallCheck/Series.hs
@@ -478,7 +478,9 @@ instance Monad m => CoSerial m Double where
     (. (realToFrac :: Double -> Float)) <$> coseries rs
 
 instance (Integral i, Serial m i) => Serial m (Ratio i) where
-  series = uncurry (%) <$> series
+  series = pairToRatio <$> series
+    where
+      pairToRatio (n, Positive d) = n % d
 instance (Integral i, CoSerial m i) => CoSerial m (Ratio i) where
   coseries rs = (. ratioToPair) <$> coseries rs
     where