Implemented fallback handler.

[Lucu.git] / Network / HTTP / Lucu / Abortion.hs

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index 091b1bb9a03f8298b56f674959aafd0efda6d947..bc03045b74b1d33ddbabb9adfeb7e2cde340de54 100644 (file)
--- 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