binaryGetDecoder code reuse

Co-authored-by: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>

Author: Soupstraw

libs/cardano-ledger-binary/src/Cardano/Ledger/Binary/Decoding/Decoder.hs

@@ -1325,11 +1325,7 @@ binaryGetDecoder ::
   Get a ->
   Decoder s a
 binaryGetDecoder name getter = do
-  bs <-
-    ifDecoderVersionAtLeast
-      (natVersion @12)
-      decodeBytesDefOrIndef
-      decodeBytes
+  bs <- decCBOR
   case runGetOrFail getter (BSL.fromStrict bs) of
     Left (_, _, err) -> cborError $ DecoderErrorCustom name (Text.pack err)
     Right (leftOver, _, ha)