X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDefaultPage.hs;h=0fefa7f38ca6c0a88d151ccc9601bb1a93573ba7;hp=076ad1059e029b85bab761e9ada6537a2a94061a;hb=2bcf36a739341aaaf56d812286d57233fff81ad5;hpb=6df5f92e37d27641f53e271f043c66dd3d085bb7

diff --git a/Network/HTTP/Lucu/DefaultPage.hs b/Network/HTTP/Lucu/DefaultPage.hs
index 076ad10..0fefa7f 100644
--- a/Network/HTTP/Lucu/DefaultPage.hs
+++ b/Network/HTTP/Lucu/DefaultPage.hs
@@ -54,10 +54,10 @@ mkDefaultPage ∷ (ArrowXml (⇝), StatusCode sc)
               → b ⇝ XmlTree
 {-# INLINEABLE mkDefaultPage #-}
 mkDefaultPage conf status msgA
-    = let sStr = A.toString $ A.fromAsciiBuilder $ printStatusCode status
+    = let sStr = A.toString ∘ A.fromAsciiBuilder $ printStatusCode status
           sig  = concat [ A.toString (cnfServerSoftware conf)
                         , " at "
-                        , T.unpack $ CI.original $ cnfServerHost conf
+                        , T.unpack ∘ CI.original $ cnfServerHost conf
                         ]
       in ( eelem "/"
            += ( eelem "html"
@@ -138,7 +138,7 @@ getMsg req res@(Response {..})
         = none
     where
       path ∷ String
-      path = uriPath $ reqURI $ fromJust req
+      path = uriPath ∘ reqURI $ fromJust req
 
       loc ∷ String
-      loc = A.toString $ fromJust $ getHeader "Location" res
+      loc = A.toString ∘ fromJust $ getHeader "Location" res