Commits

nakamura committed 11b50c8

escape backslash

Comments (0)

Files changed (1)

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