let
check_extension path ext =
PathOperation
.check_extension (s2f path) ext