X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;h=9cd8d0b49e585924cf04fdd87501ecd3c8527ace;hp=e4fa662688ad24ccdf642283f0790350779ad659;hb=175e14b3b144537644e65ca76f1fca5c56fd44e9;hpb=b340a77fa7bd051dd13a41d0a5b1ad30220bc6b6

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index e4fa662..9cd8d0b 100644
--- a/Network/HTTP/Lucu/Resource/Tree.hs
+++ b/Network/HTTP/Lucu/Resource/Tree.hs
@@ -180,7 +180,7 @@ runResource def itr
                            -- FIXME: 同じ名前で複數の値があった時は、こ
                            -- れではまずいと思ふ。
                            mapM_ (\ (name, value) -> setHeader name value) $ aboHeaders abo
-                           setContentType ("application" +/+ "xhtml+xml")
+                           setContentType ("application" </> "xhtml+xml")
                            output $ abortPage conf reqM resM abo
                  else
                    hPutStrLn stderr $ show abo