Property test failure

[tomjaguarpaw]

This looks like a genuine property test failure, but I've no idea what to do about it:

https://github.com/kowainik/tomland/actions/runs/12285988153/job/34285197633

  test/Test/Toml/Codec/Combinator/Common.hs:39:5: 
  1) Codec: unit and property tests for bidirectional codecs, Combinator spec, Combinator.Map: Roundtrip tests, Map Text [Int] (tableMap): decode . encode ≡ id
       failed after 53 tests and 19 shrinks.
       shrink path: 53:d4EdK2l5M3s3
       
          ┏━━ test/Test/Toml/Codec/Combinator/Common.hs ━━━
       34 ┃     -> Gen a
       35 ┃     -> SpecWith (Arg Expectation)
       36 ┃ codecRoundtripWith dcode typeName mkCodec genA = it label $ hedgehog $ do
       37 ┃     a <- forAll genA
          ┃     │ fromList [ ( "b-" , [ 0 ] ) , ( "b-.aa" , [ 0 ] ) ]
       38 ┃     let codec = mkCodec "a"
       39 ┃     tripping a (encode codec) (dcode codec)
          ┃     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
          ┃     │ ━━━ Intermediate ━━━
          ┃     │ "\n[a]\n  [[a.b-]]\n    val = 0\n\n  [[a.b-.aa]]\n    val = 0\n"
          ┃     │ ━━━ - Original) (+ Roundtrip ━━━
          ┃     │ - Right (fromList [ ( "b-" , [ 0 ] ) , ( "b-.aa" , [ 0 ] ) ])
          ┃     │ + Right (fromList [ ( "b-" , [ 0 ] ) ])
       40 ┃   where
       41 ┃     label :: String
       42 ┃     label = typeName ++ ": decode . encode ≡ id"

  To rerun use: --match "/Codec: unit and property tests for bidirectional codecs/Combinator spec/Combinator.Map: Roundtrip tests/Map Text [Int] (tableMap): decode . encode ≡ id/" --seed 830760668