Destroy Data.Eq.Indirect

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

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index c3aec8ec7fa2f54deea73257d63cc743c72497f2..b31c0ee5ef6bd819498584ed89bc7d036a34b90c 100644 (file)
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -14,7 +14,6 @@ import Control.Monad
 import Control.Monad.Unicode
 import Data.Ascii (Ascii, CIAscii, AsciiBuilder)
 import Data.Convertible.Base
 import Control.Monad.Unicode
 import Data.Ascii (Ascii, CIAscii, AsciiBuilder)
 import Data.Convertible.Base

-import Data.Eq.Indirect

 import Data.Maybe
 import Data.Monoid.Unicode
 import GHC.Conc (unsafeIOToSTM)
 import Data.Maybe
 import Data.Monoid.Unicode
 import GHC.Conc (unsafeIOToSTM)


@@ -48,14 +47,14 @@ abortOnCertainConditions (NI {..})
                    $ cs ("Inappropriate status code for a response: " ∷ Ascii)
                    ⊕ cs resStatus
 
                    $ cs ("Inappropriate status code for a response: " ∷ Ascii)
                    ⊕ cs resStatus
 

-               when ( resStatus ≡: MethodNotAllowed ∧
-                      (¬) (hasHeader "Allow" res)   )
+               when ( resStatus ≡ cs MethodNotAllowed ∧
+                      (¬) (hasHeader "Allow" res)     )

                    $ abort'
                    $ cs ("The status was " ∷ Ascii)
                    ⊕ cs resStatus
                    ⊕ cs (" but no \"Allow\" header." ∷ Ascii)
 
                    $ abort'
                    $ cs ("The status was " ∷ Ascii)
                    ⊕ cs resStatus
                    ⊕ cs (" but no \"Allow\" header." ∷ Ascii)
 

-               when ( resStatus ≢: NotModified       ∧
+               when ( resStatus ≢ cs NotModified     ∧

                       isRedirection resStatus        ∧
                       (¬) (hasHeader "Location" res) )
                    $ abort'
                       isRedirection resStatus        ∧
                       (¬) (hasHeader "Location" res) )
                    $ abort'