let
is_current path =
PathOperation
.is_current ( s2f path )