filepath consistency

camfort · Sep 2, 2024 · d1a4004 · d1a4004
1 parent eb111e7
commit d1a4004
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Language/Fortran/Util/Files.hs b/src/Language/Fortran/Util/Files.hs
@@ -39,11 +39,11 @@ rGetDirContents d = canonicalizePath d >>= \d' -> go [d'] d'
  fmap concat . mapM f $ ds \\ [".", ".."] -- remove '.' and '..' entries
  where
  f x = do
- path <- canonicalizePath $ d ++ "/" ++ x
+ path <- canonicalizePath $ d </> x
  g <- doesDirectoryExist path
  if g && notElem path seen then do
  x' <- go (path : seen) path
- return $ map (\ y -> x ++ "/" ++ y) x'
+ return $ map (\ y -> x </> y) x'
  else return [x]
 
 -- | Run the C Pre Processor over the file before reading into a bytestring