Commits

nakamura committed 44f4282 Merge

merge

Comments (0)

Files changed (1)

 escapeFName = escapeSlash . init . tail . show
 
 escapeSlash :: String -> String
-escapeSlash      []   = []
-escapeSlash  ('/':cs) = '\\':'0':'4':'7' : escapeSlash cs
-escapeSlash ('\\':cs) = '\\':'\\': escapeSlash cs
-escapeSlash    (c:cs) = c : escapeSlash cs
+escapeSlash      []  = []
+escapeSlash ('/':cs) = '\\':'0':'4':'7' : escapeSlash cs
+escapeSlash   (c:cs) = c : escapeSlash cs