-- NB: top_dir is assumed to be in standard Unix format '/' separated
; let installed, installed_bin :: FilePath -> FilePath
- installed_bin pgm = pgmPath (top_dir `slash` "extra-bin") pgm
+ installed_bin pgm = pgmPath top_dir pgm
installed file = pgmPath top_dir file
inplace dir pgm = pgmPath (top_dir `slash` dir) pgm
destructArray len buf
return s
let
- -- strip the trailing slash (awful, but
+ -- strip the trailing backslash (awful, but
-- we only do this once).
tmpdir =
case last tdir of
- '/' -> init tdir
+ '/' -> init tdir
+ '\\' -> init tdir
_ -> tdir
setTmpDir tmpdir
return ())