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>