aboutsummaryrefslogtreecommitdiff
path: root/Math/Combinatorics
diff options
context:
space:
mode:
Diffstat (limited to 'Math/Combinatorics')
-rw-r--r--Math/Combinatorics/PitmanTransform.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Math/Combinatorics/PitmanTransform.hs b/Math/Combinatorics/PitmanTransform.hs
index 1f17571..f5ca9fa 100644
--- a/Math/Combinatorics/PitmanTransform.hs
+++ b/Math/Combinatorics/PitmanTransform.hs
@@ -85,7 +85,7 @@ smallRational :: Gen Q
smallRational = do
x <- smallInt
y <- smallInt
- return $ (toInteger x) % (toInteger (abs y + 1)) -- this line does not work if
+ return $ (toInteger x) % (toInteger (abs y + 1))
--return $ (toInteger x) / (toInteger (abs y + 1)) -- this line does not work for Q = Math.Algebra.Field.Base.Q - Couldn't match type ‘Integer’ with ‘Q’