输入中的解析错误＆＃39;＆lt; - ＆＃39;

Question

我在解析代码方面遇到了一些问题。 我收到以下错误消息：

  

project.hs：82：17：错误：   输入'＆lt; - '上的解析错误      也许这句话应该在“做”之内。方框？

代码如下：

firstLetters_main :: IO() 
firstLetters_main = do
    system "cls"
    putStr "Input file : "
    op1 <- getLine
    putStr "Output file : "
    op2 <- getLine
    let ans1 = read op1
    let ans2 = read op2
    istream <- readFile ans1
    ostream <- openFile ans2 WriteMode
    let str = lines istream
    hPutStrLn ostream (show (firstLetters str))

错误消息指向该行：

ostream <- openFile ans2 WriteMode

如果没有更改输入文件结构，如果它没有更改输入文件结构，并且将它放在输出文件中，则此程序正在更改从第一个字母开始大写到大写的每个句子（如果没有更改输入文件结构）。 / p>

提前致谢！