diff options
Diffstat (limited to 'app-forensics/quickfuzz/files/quickfuzz-9999-th-2.11-1.patch')
| -rw-r--r-- | app-forensics/quickfuzz/files/quickfuzz-9999-th-2.11-1.patch | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/app-forensics/quickfuzz/files/quickfuzz-9999-th-2.11-1.patch b/app-forensics/quickfuzz/files/quickfuzz-9999-th-2.11-1.patch new file mode 100644 index 000000000000..436df0e85e35 --- /dev/null +++ b/app-forensics/quickfuzz/files/quickfuzz-9999-th-2.11-1.patch @@ -0,0 +1,22 @@ +diff --git a/src/DeriveArbitrary.hs b/src/DeriveArbitrary.hs +index d42b896..fc94945 100644 +--- a/src/DeriveArbitrary.hs ++++ b/src/DeriveArbitrary.hs +@@ -26,7 +26,7 @@ import Data.List.Split + import Data.Maybe + -- Gen + import Language.Haskell.TH +-import Language.Haskell.TH.Syntax ++import Language.Haskell.TH.Syntax as TH + import Test.QuickCheck + import GHC.Exts + import GHC.Types +@@ -38,7 +38,7 @@ import Control.Applicative + import Data.List + + -- | Build the arbitrary function with makeArbs +-chooseExpQ :: Name -> Name -> Name -> Integer -> Type -> ExpQ ++chooseExpQ :: Name -> Name -> Name -> Integer -> TH.Type -> ExpQ + chooseExpQ g n t bf (AppT ListT ty) = [| listOf $ resize ($(varE n) `div` 10) arbitrary |] + chooseExpQ g n t bf ty | headOf ty /= t = [| resize (max 0 ($(varE n) - 1)) arbitrary |] + chooseExpQ g n t bf ty = |