在HSpec测试中匹配Haskell记录中的"any string“

import Test.Hspec
import Test.Hspec.Expectations.Contrib (shouldSatisfy)

data MyRecord = MyRecord
  { field1 :: String
  , field2 :: String
  }

main :: IO ()
main = hspec $ do
  describe "Matching a string in Haskell record" $ do
    it "should match a string in field1" $ do
      let record = MyRecord { field1 = "Hello, world!", field2 = "Some other value" }
      record `shouldSatisfy` (\r -> "any string" `elem` [field1 r, field2 r])