bparodi/Pentole
1
Fork 0
Code Issues 6 Pull requests Projects Releases Packages Wiki Activity

todo

Browse source
This commit is contained in:
Francesco Mecca 2024-12-07 13:58:03 +01:00
parent 1afe333a4e
commit 0055b8f6cb
1 changed files with 1 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Pentole/path.fs
View file

@ -142,22 +142,9 @@ module FileSystem =
let resolve (path: IPath) = let resolve (path: IPath) =
Native.realpath path.string_value |> Result.bind Path.of_string Native.realpath path.string_value |> Result.bind Path.of_string
(* (*
module Pentole.Path
/// <summary>
/// Return the parent path
/// </summary>
/// <param name="path"></param>
let parent (path: Path) =
failwith "TODO"
let relative_to (parent: Path) (child: Path) = let relative_to (parent: Path) (child: Path) =
match (parent, child) with // TODO: don't use bcl because it resolves on the FS
| (Absolute parent | Relative parent), (Absolute child| Relative child) ->
System.IO.Path.GetRelativePath (parent, child)
|> Path.of_string
/// <summary> /// <summary>