diff options
| author | Jeshiba <baconp@gmail.com> | 2017-07-18 09:30:05 -0400 |
|---|---|---|
| committer | Jeshiba <baconp@gmail.com> | 2017-07-18 09:30:05 -0400 |
| commit | 7e5404413830dff677d418a7d6653d5662532500 (patch) | |
| tree | 2fd324d053aec8b04ce791a024390addf2660739 /Math | |
| parent | e82050aeb53d6aabcce7a8f27659e2e8bb8fb4bc (diff) | |
Diffstat (limited to 'Math')
| -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’ |