{- |
  A function inspired by a perl function from the standard perl-module
  File::Basename. It gives the directory part of a filepath.
-}
dirname :: FilePath -> FilePath
dirname = fst . stripDir
dirname :: FilePath -> FilePath
dirname = fst . stripDir
dirname = fst . stripDir