-- strip the trailing backslash (awful, but we only do this once).
removeTrailingSlash path
| isPathSeparator (last path) = init path
- | othwerwise = path
+ | otherwise = path
#endif
-----------------------------------------------------------------------------