git.iko.soy/grenade
on master help sign in
Add missing file
f4e1f28Huw Campbell
test/Test/Jack/Compat.hsnew file+16
compare with master
unifiedsplit
@@ -0,0 +1,16 @@
1+{-# LANGUAGE RankNTypes #-}
2+module Test.Jack.Compat where
3+
4+import Hedgehog
5+import qualified Hedgehog.Gen as Gen
6+import qualified Hedgehog.Range as Range
7+
8+type Jack x = forall m. Monad m => Gen m x
9+
10+(...) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
11+(...) = (.) . (.)
12+{-# INLINE (...) #-}
13+
14+choose :: Integral a => a -> a -> Jack a
15+choose = Gen.integral ... Range.constant
16+