let
compare path1 path2 =
PathOperation
.compare (s2f path1) (s2f path2)