Commits

nakamura committed ab773d7

Backed out changeset 11b50c8ce192

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