Minor path fix

fable-compiler · Feb 14, 2019 · f788de2 · f788de2
1 parent d1c14e2
commit f788de2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/fable-compiler-js/src/app.fs b/src/fable-compiler-js/src/app.fs
@@ -82,7 +82,7 @@ let rec parseProject (projectPath: string) =
     let isAbsolutePath (path: string) = path.StartsWith("/") || path.IndexOf(":") = 1
     let trimPath (path: string) = path.Replace("../", "").Replace("./", "").Replace(":", "")
     let makePath path = if isAbsolutePath path then path else Path.Combine(projectFileDir, path)
-    let makeName path = Path.Combine(trimPath projectFileDir, trimPath path)
+    let makeName path = Path.Combine(projectFileDir, path) |> trimPath
 
     let fileNames = sourceFiles |> Array.map (fun path -> path |> makeName)
     let sources = sourceFiles |> Array.map (fun path -> path |> makePath |> readAllText)

diff --git a/src/fable-standalone/test/bench-compiler/app.fs b/src/fable-standalone/test/bench-compiler/app.fs
@@ -53,7 +53,7 @@ let rec parseProject projectPath =
     let isAbsolutePath (path: string) = path.StartsWith("/") || path.IndexOf(":") = 1
     let trimPath (path: string) = path.Replace("../", "").Replace("./", "").Replace(":", "")
     let makePath path = if isAbsolutePath path then path else Fable.Path.Combine(projectFileDir, path)
-    let makeName path = Fable.Path.Combine(trimPath projectFileDir, trimPath path)
+    let makeName path = Fable.Path.Combine(projectFileDir, path) |> trimPath
 
     let fileNames = sourceFiles |> Array.map (fun path -> path |> makeName)
     let sources = sourceFiles |> Array.map (fun path -> path |> makePath |> readAllText)