X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FException.hs;h=9ffabcf1d69d7ff8ac69beb1a43ad200cf33d836;hb=fd0f2fbadf218f080a60c392221820a9f07933df;hp=c766002f8962a80dfadff04cca0aaf7b85970734;hpb=d4ff5ccc28a9374231ab64d166b4fba2094e7c31;p=ghc-base.git diff --git a/Control/Exception.hs b/Control/Exception.hs index c766002..9ffabcf 100644 --- a/Control/Exception.hs +++ b/Control/Exception.hs @@ -236,7 +236,7 @@ evaluate a = IO $ \s -> case a `seq` () of () -> (# s, a #) -- 'mapException' -- | This function maps one exception into another as proposed in the --- paper "A semantics for imprecise exceptions". +-- paper \"A semantics for imprecise exceptions\". -- Notice that the usage of 'unsafePerformIO' is safe here.