PathUtils.hs

-- Functions for manipulating FilePaths
module PathUtils where

import System.Info(os)

-- Normalize file names:
normf ('.':x:s) | x==pathSep = normf s
normf s = s

pathSep = if os=="mingw32" then '\\' else '/'