From 0055b8f6cbec42a36b5c93ff5fd3856b34aed5c8 Mon Sep 17 00:00:00 2001
From: Francesco Mecca <code@francescomecca.eu>
Date: Sat, 7 Dec 2024 13:58:03 +0100
Subject: [PATCH] todo

---
 Pentole/path.fs | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/Pentole/path.fs b/Pentole/path.fs
index 4e4e183..312f1c3 100644
--- a/Pentole/path.fs
+++ b/Pentole/path.fs
@@ -142,22 +142,9 @@ module FileSystem =
     let resolve (path: IPath) =
         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) =
-    match (parent, child) with
-    | (Absolute parent | Relative parent), (Absolute child| Relative child) ->
-        System.IO.Path.GetRelativePath (parent, child)
-        |> Path.of_string
+    // TODO: don't use bcl because it resolves on the FS
 
                   
 /// <summary>