removeEmptyDirectory :: FilePath -> IO ExitCode
removeEmptyDirectory path = do
    e <- tryCommand ("rmdir " ++ path)
    return e
removeEmptyDirectory :: FilePath -> IO ExitCode
removeEmptyDirectory path = do
    e <- tryCommand ("rmdir " ++ path)
    return e
removeEmptyDirectory path = do
    e <- tryCommand ("rmdir " ++ path)
    return e