Disable mysmallcheck

ghc-show.spec

@@ -12,7 +12,7 @@ SimpleReflect allows us to literally see how functions 'expand'.
 
 Name:           ghc-%{pkg_name}
 Version:        0.4.1.2
-Release:        4%{?dist}
+Release:        5%{?dist}
 Summary:        %{common_summary}
 
 # SimpleReflect is BSD and show.cabal says GPL
@@ -20,6 +20,7 @@ License:        GPL+
 URL:            http://hackage.haskell.org/package/%{pkg_name}
 Source0:        http://hackage.haskell.org/packages/archive/%{pkg_name}/%{version}/%{pkg_name}-%{version}.tar.gz
 Patch0:         show-0.4.1.2-fix-fsf-address.patch
+Patch1:		show-0.4.1.2-disable-mysmallcheck.patch
 
 BuildRequires:  ghc-Cabal-devel
 BuildRequires:  ghc-rpm-macros
@@ -37,7 +38,7 @@ BuildRequires:  ghc-syb-devel
 %prep
 %setup -q -n %{pkg_name}-%{version}
 %patch0 -p1 -b .orig
-
+%patch1 -p1 -b .fix
 
 %build
 %ghc_lib_build
@@ -59,6 +60,9 @@ BuildRequires:  ghc-syb-devel
 
 
 %changelog
+* Fri May  3 2013 Shakthi Kannan <shakthimaan [AT] fedoraproject dot org> - 0.4.1.2-5
+- Disable mysmallcheck
+
 * Wed Feb 13 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.4.1.2-4
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
 

show-0.4.1.2-disable-mysmallcheck.patch

@@ -0,0 +1,16 @@
+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'