17 lines
691 B
Diff
17 lines
691 B
Diff
diff -up show-0.4.1.2/ShowQ.hs.fix show-0.4.1.2/ShowQ.hs
|
|
--- show-0.4.1.2/ShowQ.hs.fix 2013-05-03 16:02:53.995282549 +0530
|
|
+++ show-0.4.1.2/ShowQ.hs 2013-05-03 16:03:38.330291233 +0530
|
|
@@ -8,10 +8,12 @@ import System.IO.Unsafe (unsafePerformIO
|
|
import Test.QuickCheck (numTests, quickCheckWithResult, stdArgs, Result(..), Testable)
|
|
import qualified Test.SmallCheck as SC (smallCheck, Testable)
|
|
|
|
+{--
|
|
mysmallcheck :: (SC.Testable prop) => prop -> ()
|
|
mysmallcheck = unsafePerformIO . mysmallcheck'
|
|
mysmallcheck' :: (SC.Testable prop) => prop -> IO ()
|
|
mysmallcheck' = SC.smallCheck 6
|
|
+--}
|
|
|
|
myquickcheck :: Testable prop => prop -> String
|
|
myquickcheck = unsafePerformIO . myquickcheck'
|