Haskell读取文本文件无法生成Customer类型列表的问题求助

我有一个存储着Customer类型列表文本的customer.txt文件，内容如下：

[ Customer {customerId = 1, firstName = "Charlotte", lastName = "White", age = 56, email = "Isabella@hotmail.com", balance = 5645.416, riskNote = "Medium"}
    , Customer {customerId = 2, firstName = "Alexander", lastName = "Miller", age = 19, email = "Sarah@example.com", balance = 9595.98, riskNote = "Low"}
    , Customer {customerId = 3, firstName = "John", lastName = "Moore", age = 31, email = "Michael@hotmail.com", balance = 2777.1067, riskNote = "Low"}
    ]

我的Haskell代码如下：

import System.IO
import Text.Read (readMaybe)
import Data.List.Split (splitOn)


data Customer = Customer { customerId :: Int
                         , firstName :: String
                         , lastName :: String
                         , age :: Int
                         , email :: String
                         , balance :: Float
                         , riskNote :: String
                         } deriving (Show)



main :: IO ()
main = do
    handle <- openFile "customer.txt" ReadMode
    contents <- hGetContents handle

    let dosyaIcerigi = lines contents
   
    -- Customer'ları yazdır
    mapM_ print dosyaIcerigi

我可以读取并逐行打印文件内容，但无法将读取的文本转换为Customer类型的列表。在Haskell内部我能创建该类型的列表，但从文件读取时无法实现，恳请协助解决此问题。

要解决这个问题，核心是利用Haskell的Read类型类直接解析整个列表文本，而非逐行拆分处理，具体步骤如下：

• 为Customer添加Read派生
  当前Customer仅派生了Show，要从字符串解析为该类型，必须添加Read派生。修改数据类型定义：

  data Customer = Customer { customerId :: Int
                           , firstName :: String
                           , lastName :: String
                           , age :: Int
                           , email :: String
                           , balance :: Float
                           , riskNote :: String
                           } deriving (Show, Read)
  

• 修改读取逻辑，解析完整文件内容
  文件内容是一个完整的[Customer]语法结构，逐行拆分会破坏列表的整体结构。直接用readMaybe解析整个文件内容，同时处理解析失败的情况：

  main :: IO ()
  main = do
      contents <- readFile "customer.txt"  -- 用readFile简化文件操作，自动处理打开/关闭
      case readMaybe contents :: Maybe [Customer] of
          Just customers -> mapM_ print customers
          Nothing -> putStrLn "解析失败，请检查文件格式是否符合Customer列表的语法要求"
  

• 关键说明
  你之前用lines拆分内容的思路不适用，因为文件里的列表是跨多行的，每行并非独立的Customer值，而是整个列表结构的一部分。只有解析完整的文本内容，才能正确识别列表和每个Customer的结构。

内容的提问来源于stack exchange，提问作者aoNym