Commit 00e46974 authored by Mart Lubbers's avatar Mart Lubbers

convert all path separators to linux path separators used in tree view

parent 1a87c628
Pipeline #31403 passed with stage
in 6 minutes and 57 seconds
......@@ -78,7 +78,8 @@ where
insertSpaces i s
| i == size s = []
| s % (i, i+2) == "API" = [' ','A','P','I':insertSpaces (i+3) s]
| isUpper s.[i] && (i == 0 || s.[i-1] <> '/') = [' ',s.[i]:insertSpaces (i+1) s]
| isUpper s.[i] && (i == 0 || s.[i-1] <> pathSeparator) = [' ',s.[i]:insertSpaces (i+1) s]
| s.[i] == pathSeparator = ['/':insertSpaces (i+1) s]
= [s.[i]:insertSpaces (i+1) s]
Start w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment