X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FException.lhs;h=5cee08fff1e1c909f416f6c58fe7c6b2c774aeb4;hb=17de35d4d566bd83a6d15ab72dec3d0fe1dfe1dd;hp=fd280041574254fe95d562fe26a81b4682479cad;hpb=d869f2fcfac24f46966e444feebad4e227d05c27;p=haskell-directory.git

diff --git a/GHC/Exception.lhs b/GHC/Exception.lhs
index fd28004..5cee08f 100644
--- a/GHC/Exception.lhs
+++ b/GHC/Exception.lhs
@@ -102,8 +102,8 @@ unblock (IO io) = IO $ unblockAsyncExceptions# io
 \end{code}
 
 \begin{code}
--- | Forces its argument to be evaluated, and returns the result in
--- the 'IO' monad.  It can be used to order evaluation with respect to
+-- | Forces its argument to be evaluated when the resultant 'IO' action
+-- is executed.  It can be used to order evaluation with respect to
 -- other 'IO' operations; its semantics are given by
 --
 -- >   evaluate x `seq` y    ==>  y