レコードデータ型の一部のフィールドだけテストする方法について、以前から少し悩んでいた。 data Person = Person { id :: Int , name :: Text , age :: Int } deriving (Eq, Ord, Show) registerPerson :: Text -> Int -> IO Person これをテストするため…