-- URI unescape して UTF-8 から decode する。
decodePageName :: FilePath -> PageName
decodePageName = UTF8.decodeString . unEscapeString
-- URI unescape して UTF-8 から decode する。
decodePageName :: FilePath -> PageName
decodePageName = UTF8.decodeString . unEscapeString