X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAbortion.hs;h=bc03045b74b1d33ddbabb9adfeb7e2cde340de54;hb=50e8fe7af585a8d33d93b3721be8f8f01905b891;hp=091b1bb9a03f8298b56f674959aafd0efda6d947;hpb=e53a2f3202f763e844de725712f1bf26b82cd41f;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 091b1bb..bc03045 100644
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -70,7 +70,7 @@ abort status headers msg
       in
         liftIO $ throwIO exc
 
--- |This is similar to 'abort' but compute it with
+-- |This is similar to 'abort' but computes it with
 -- 'System.IO.Unsafe.unsafePerformIO'.
 abortPurely :: StatusCode -> [ (ByteString, ByteString) ] -> Maybe String -> a
 abortPurely = ((unsafePerformIO .) .) . abort