import System.Directory
import qualified Data.ByteString as BS
import qualified Data.ByteString.UTF8 as BS_UTF8
main = do
putStrLn "Input path to some file: "
raw_inputed_path <- BS.getLine
let inputed_path = BS_UTF8.toString raw_inputed_path
such_file_exists <- doesFileExist inputed_path
such_directory_exists <- doesDirectoryExist inputed_path
if such_file_exists
then putStrLn "Yeah, I see it!"
else if such_directory_exists
then putStrLn "Aha, I see it, but it s a directory!"
else putStrLn "Hmm... No such..."
该法典只与ASCII-paths合作。 但是,如果我使用带有非ASCII符号的路径,doesFileExist
和doesDirectoryExist
总是<代码>False。 为什么?
- Debian GNU/Linux 6.0 x86_64
- ghc 6.12.1