From 7e5404413830dff677d418a7d6653d5662532500 Mon Sep 17 00:00:00 2001
From: Jeshiba <baconp@gmail.com>
Date: Tue, 18 Jul 2017 09:30:05 -0400
Subject: minor edits of comments

---
 Math/Combinatorics/PitmanTransform.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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’
 
 
-- 
cgit v1.2.3