使用Haskell编写一个简单的文件读写程序

下面是使用Haskell编写的一个简单的文件读写程序，包括了读取文件内容和写入文件内容的功能。

import System.IO

-- 读取文件内容
readFileContent :: FilePath -> IO String
readFileContent filePath = do
    handle <- openFile filePath ReadMode
    content <- hGetContents handle
    hClose handle
    return content

-- 写入文件内容
writeFileContent :: FilePath -> String -> IO ()
writeFileContent filePath content = do
    handle <- openFile filePath WriteMode
    hPutStr handle content
    hClose handle

-- 使用例子
main :: IO ()
main = do
    let fileName = "example.txt"

    -- 写入文件内容
    writeFileContent fileName "Hello, Haskell!"

    -- 读取文件内容
    fileContent <- readFileContent fileName
    putStrLn fileContent

在这个例子中，我们定义了两个函数readFileContent和writeFileContent来读取和写入文件内容。readFileContent函数接受一个文件路径作为参数，然后打开文件并读取其内容，并返回文件内容作为字符串。writeFileContent函数接受一个文件路径和内容作为参数，然后打开文件并写入内容。

在main函数中，我们使用writeFileContent将字符串"Hello, Haskell!"写入名为example.txt的文件。然后，我们使用readFileContent读取该文件的内容，并将其打印出来。

要在Haskell中运行这个程序，可以将上述代码保存到一个文件中，比如fileIO.hs，然后在终端中使用ghc命令编译并运行该文件：

$ ghc fileIO.hs
$ ./fileIO

输出应该是Hello, Haskell!，表示文件读写成功。