Improve roundtrip functions to report annotations on callsite

[newhoggy]

Before this fix, hedgehog reports look like this:

    roundtrip tx CBOR
      BabbageEra: FAIL (9.47s)
          ✗ BabbageEra failed at gen/Test/Hedgehog/Roundtrip/CBOR.hs:21:5
            after 36 tests and 388 shrinks.
            shrink path: 36:a2B3aB5cm34EX32aCL36ew32A6cCL49cmCL185

               ┏━━ gen/Test/Hedgehog/Roundtrip/CBOR.hs ━━━
            15 ┃ roundtrip_CBOR
            16 ┃   :: (SerialiseAsCBOR a, Eq a, Show a)
            17 ┃   => AsType a -> Gen a -> Property
            18 ┃ roundtrip_CBOR typeProxy gen =
            19 ┃   H.property $ do
            20 ┃     val <- H.forAll gen
               ┃     │ ShelleyTx
               ┃     │   ShelleyBasedEraBabbage
               ┃     │   AlonzoTx
               ┃     │     { body =
...
               ┃     │           , _txscripts = fromList []
               ┃     │           , _txdats = TxDatsRaw (fromList [])
               ┃     │           , _txrdmrs = RedeemersRaw (fromList [])
               ┃     │           }
               ┃     │     , isValid = IsValid False
               ┃     │     , auxiliaryData = SNothing
               ┃     │     }
            21 ┃     H.tripping val serialiseToCBOR (deserialiseFromCBOR typeProxy)
               ┃     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
               ┃     │ ━━━ Intermediate ━━━
...
               ┃     │ ━━━ - Original) (+ Roundtrip ━━━
               ┃     │ - Right
               ┃     │ -   (ShelleyTx
               ┃     │ -      ShelleyBasedEraBabbage
               ┃     │ -      AlonzoTx
               ┃     │ -        { body =
...
               ┃     │ -        })
               ┃     │ + Left
               ┃     │ +   (DecoderErrorDeserialiseFailure
               ┃     │ +      "Shelley Tx"
               ┃     │ +      (DeserialiseFailure
               ┃     │ +         439
               ┃     │ +         "Expected array with 166 entries, but encoded array has 175 entries."))

            This failure can be reproduced by running:
            > recheckAt (Seed 12871014892817788416 11819258044470470495) "36:a2B3aB5cm34EX32aCL36ew32A6cCL49cmCL185" BabbageEra

        Use "--pattern '$NF ~ /BabbageEra/' --hedgehog-replay '36:a2B3aB5cm34EX32aCL36ew32A6cCL49cmCL185 Seed 12871014892817788416 11819258044470470495'" to reproduce from the command-line.

        Use -p '/BabbageEra/&&$0=="Cardano.Api.Test.Cardano.Api.Typed.CBOR.roundtrip tx CBOR.BabbageEra"' to rerun this test only.

There is not information to allow jumping directly the the failing test.

After the change the report additionally includes this:

               ┏━━ test/Test/Cardano/Api/Typed/CBOR.hs ━━━
            32 ┃ test_roundtrip_tx_CBOR :: [TestTree]
            33 ┃ test_roundtrip_tx_CBOR =
            34 ┃   [ testPropertyNamed (show era) (fromString (show era)) $ roundtrip_CBOR (proxyToAsType Proxy) (genTx era)
               ┃   │ Tx BabbageEra
            35 ┃   | AnyCardanoEra era <- [minBound..(AnyCardanoEra BabbageEra)]
            36 ┃   ]

The additional information locates the failing test down to the line number where the failure happened.

[Jimbo4350]

Nice 👌