The library now compiles, and I'm now working on ImplantFile.hs

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

diff --git a/Network/HTTP/Lucu/Abortion.hs b/Network/HTTP/Lucu/Abortion.hs
index c36ebc07912176949d2005e37e8e4dc7a8d2c625..4e237c4fe1f220fad90e8aaf63060c788b52741a 100644 (file)
--- a/Network/HTTP/Lucu/Abortion.hs
+++ b/Network/HTTP/Lucu/Abortion.hs
@@ -1,11 +1,9 @@
 {-# LANGUAGE
     Arrows
-  , BangPatterns
   , DeriveDataTypeable
   , TypeOperators
   , UnicodeSyntax
   #-}
-{-# OPTIONS_HADDOCK prune #-}
 
 -- |Aborting the computation of 'Network.HTTP.Lucu.Resource.Resource'
 -- in any 'Prelude.IO' monads or arrows.
@@ -101,7 +99,7 @@ abortA = proc (status, (headers, msg)) →
 -- Nothing の場合は getDefaultPage を使ってデフォルトのメッセージを得な
 -- ければならない。
 abortPage :: Config → Maybe Request → Response → Abortion → Lazy.Text
-abortPage !conf !reqM !res !abo
+abortPage conf reqM res abo
     = case aboMessage abo of
         Just msg
             → let [html] = runLA ( mkDefaultPage conf (aboStatus abo) (txt $ T.unpack msg)