diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-01 17:50:42 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-01 18:14:40 +0100 |
| commit | 9faf7fb877119bd52d664940c4326d326b3326fa (patch) | |
| tree | 58063f871b11a4dd5089dca28bb561bc322a875f /test/Tests/Permutation.hs | |
| parent | 0028b655341069e83db6e0bfde01dea1c696f5aa (diff) | |
Don't call continuation-based functions just *FromList
Diffstat (limited to 'test/Tests/Permutation.hs')
| -rw-r--r-- | test/Tests/Permutation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Permutation.hs b/test/Tests/Permutation.hs index 98a6da5..4e75d64 100644 --- a/test/Tests/Permutation.hs +++ b/test/Tests/Permutation.hs @@ -24,7 +24,7 @@ tests = testGroup "Permutation" [testProperty "permCheckPermutation" $ property $ do n <- forAll $ Gen.int (Range.linear 0 10) list <- forAll $ genPermR n - let r = permFromList list $ \perm -> + let r = permFromListCont list $ \perm -> permCheckPermutation perm () case r of Just () -> return () |