diff options
| -rw-r--r-- | Math/Combinatorics/PitmanTransform.hs | 2 |
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’ |