aboutsummaryrefslogtreecommitdiff
path: root/Math/Combinatorics
diff options
context:
space:
mode:
authorJeshiba <baconp@gmail.com>2017-07-18 09:30:05 -0400
committerJeshiba <baconp@gmail.com>2017-07-18 09:30:05 -0400
commit7e5404413830dff677d418a7d6653d5662532500 (patch)
tree2fd324d053aec8b04ce791a024390addf2660739 /Math/Combinatorics
parente82050aeb53d6aabcce7a8f27659e2e8bb8fb4bc (diff)
minor edits of commentsHEADmaster
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’