Fixed normalized paths

Author: ncave

fcs/fcs-fable/adapters.fs

@@ -89,7 +89,7 @@ module System =
             let GetFileName (path: string) =
                 let normPath = path.Replace("\\", "/").TrimEnd('/')
                 let i = normPath.LastIndexOf("/")
-                path.Substring(i + 1)
+                normPath.Substring(i + 1)
 
             let GetFileNameWithoutExtension (path: string) =
                 let filename = GetFileName path
@@ -101,11 +101,11 @@ module System =
                 let normPath = path.Replace("\\", "/")
                 let i = normPath.LastIndexOf("/")
                 if i <= 0 then ""
-                else path.Substring(0, i)
+                else normPath.Substring(0, i)
 
             let IsPathRooted (path: string) = //TODO: proper xplat implementation
                 let normPath = path.Replace("\\", "/").TrimEnd('/')
-                path.StartsWith("/")
+                normPath.StartsWith("/")
 
 
 module Microsoft =

fcs/fcs-fable/test/Platform.fs

@@ -53,10 +53,10 @@ module Path =
     let GetFileName (path: string) =
         let normPath = path.Replace("\\", "/").TrimEnd('/')
         let i = normPath.LastIndexOf("/")
-        path.Substring(i + 1)
+        normPath.Substring(i + 1)
 
     let GetDirectoryName (path: string) =
         let normPath = path.Replace("\\", "/")
         let i = normPath.LastIndexOf("/")
         if i < 0 then ""
-        else path.Substring(0, i)
+        else normPath.Substring(0, i)