X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FTrackBack.hs;fp=Rakka%2FResource%2FTrackBack.hs;h=1bcdbf959156389126454391866ba75be8ac7622;hp=260d22298605a504269eba8e4b4605c0e6b10f1e;hb=98fd1cb53a837a9bda7145544c34872acb13a634;hpb=e57027f2f85dcef6f5bd0e7ed141f04704c092f9 diff --git a/Rakka/Resource/TrackBack.hs b/Rakka/Resource/TrackBack.hs index 260d222..1bcdbf9 100644 --- a/Rakka/Resource/TrackBack.hs +++ b/Rakka/Resource/TrackBack.hs @@ -14,7 +14,6 @@ import Network.Browser import Network.HTTP import Network.HTTP.Lucu import Network.HTTP.Lucu.Response -import Network.HTTP.Lucu.Utils import Network.URI import Rakka.Environment import Rakka.Page @@ -47,7 +46,7 @@ resTrackBack env } where toPageName :: [String] -> PageName - toPageName = decodePageName . joinWith "/" + toPageName = UTF8.decodeString . joinPath handlePost :: Environment -> PageName -> Resource ()