From 1e38f49e42ac1f2ffe924b897f213c26d61ff1cf Mon Sep 17 00:00:00 2001
From: Gabor Greif <ggreif@gmail.com>
Date: Fri, 8 Nov 2013 08:20:14 +0100
Subject: [PATCH] Spelling in comments
---
libraries/base/GHC/Event/Poll.hsc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/libraries/base/GHC/Event/Poll.hsc b/libraries/base/GHC/Event/Poll.hsc
index 572cff6af79..a83278955d6 100644
--- a/libraries/base/GHC/Event/Poll.hsc
+++ b/libraries/base/GHC/Event/Poll.hsc
@@ -105,7 +105,7 @@ poll p mtout f = do
return (fromIntegral n)
where
-- The poll timeout is specified as an Int, but c_poll takes a CInt. These
- -- can't be safely coerced as on many systems (e.g. x86_64) CInt has a a
+ -- can't be safely coerced as on many systems (e.g. x86_64) CInt has a
-- maxBound of (2^32 - 1), even though Int may have a significantly higher
-- bound.
--
@@ -132,7 +132,7 @@ poll p mtout f = do
-- which is the largest value accepted by c_poll. This will result in
-- c_pollLoop recursing if the provided timeout is larger.
--
- -- In case 3, "fromIntegral (maxBound :: CInt) :: Int" wil result in a
+ -- In case 3, "fromIntegral (maxBound :: CInt) :: Int" will result in a
-- negative Int, max will thus return maxBound :: Int. Since poll doesn't
-- accept values bigger than maxBound :: Int and CInt is larger than Int,
-- there is no problem converting Int to CInt for the c_poll call.
--
GitLab