我的代码是否缺少特定的重要内容？ [关闭]

Question

关闭。 这个问题需要更加集中。 它目前不接受答案。

---

想改善这个问题吗？ 更新问题，使其仅通过编辑这篇文章来关注一个问题。

昨天关闭。

改进这个问题

main :: IO()
main = return()

sales = []
 
recordpurchase :: IO ()
recordpurchase = do
putStrLn "Transaction"
transaction <- getLine

putStrLn "Item Name"
item_name <- getLine

putStrLn "Item Type"
item_type <- getLine

putStrLn "Number of Items"
number_of_items <- getLine

let sales = sales ++ [transaction, item_name, item_type, number_of_items]
print sales

当我运行代码并尝试导入项目时，例如 import 10 "Mobile" 它在输入 10 上显示解析错误