Haskell错误处理，将无效文件路径记录到控制台

import Control.Exception (catch, IOException)

main :: IO ()
main = do
  let filePath = "invalid/path/to/file.txt"
  catch (do
    -- 打开文件并进行操作
    putStrLn $ "打开文件：" ++ filePath
    ) (\(e :: IOException) -> do
    -- 处理异常并记录无效文件路径到控制台
    putStrLn $ "无效的文件路径：" ++ filePath
    putStrLn $ "错误信息：" ++ show e
    )

import Data.Maybe (isNothing)

main :: IO ()
main = do
  let filePath = "invalid/path/to/file.txt"
  if isNothing (validateFilePath filePath)
    then putStrLn $ "无效的文件路径：" ++ filePath
    else putStrLn $ "有效的文件路径：" ++ filePath

validateFilePath :: FilePath -> Maybe FilePath
validateFilePath filePath =
  -- 检查文件路径的有效性，返回Maybe类型
  if filePath == "invalid/path/to/file.txt"
    then Nothing
    else Just filePath