Fix for simplyPath not removing trailing directory separators.

b0wter · b0wter · commit 84378d83d54a · 2021-04-22T13:57:08.000+02:00
diff --git a/src/cli/IO.fs b/src/cli/IO.fs
@@ -180,7 +180,9 @@ module IO =
         else joined
         
     let simplifyPath (path: string): string =
-        Path.GetFullPath(path)
+        let simplified = Path.GetFullPath path
+        if simplified = (Path.DirectorySeparatorChar |> string) then simplified
+        else simplified.TrimEnd(Path.DirectorySeparatorChar)
         
     /// Finds the largest common path across multiple paths.
     let findLargestCommonPath (paths: string list) : string =
