From da469e66f0b42fc18ffb76bc8903bd6550f17d8d Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Wed, 16 May 2018 16:14:29 +0700 Subject: [PATCH] Fix explode_path to work on absolute paths Signed-off-by: Rudi Grinberg --- src/stdune/path.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/stdune/path.ml b/src/stdune/path.ml index 02d8429c..7019a4ab 100644 --- a/src/stdune/path.ml +++ b/src/stdune/path.ml @@ -2,11 +2,12 @@ let explode_path = let rec loop path acc = let dir = Filename.dirname path in let base = Filename.basename path in - let acc = base :: acc in if dir = Filename.current_dir_name then + base :: acc + else if dir = path then acc else - loop dir acc + loop dir (base :: acc) in fun path -> loop path []