От: | Аноним | ||
Дата: | 31.08.10 02:59 | ||
Оценка: |
makeDir :: String -> IO()
makeDir dirName = do
d <- doesDirectoryExist dirName
if d
then renameDirectory dirName (dirName ++ "_old")
createDirectory dirName
printStrLn $ ("Directory " ++ dirName ++ " has been creted")