Skip to content

Commit

Permalink
Use toStrict from Data.ByteString.Lazy
Browse files Browse the repository at this point in the history
  • Loading branch information
palas committed Feb 27, 2024
1 parent 0901624 commit 1c8a727
Showing 1 changed file with 1 addition and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,6 @@ import Cardano.Api.ProtocolParameters (LedgerProtocolParameters (..),
convertToLedgerProtocolParameters, fromLedgerPParams)

import Data.Aeson (eitherDecode)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as LBS

import Test.Gen.Cardano.Api.Typed (genProtocolParameters)
Expand Down Expand Up @@ -73,7 +72,7 @@ ppParamsRoundtrip era =
} <- forAll $ genValidSerializedPair era
case eitherDecode serializedProtocolParams :: Either String (PParams (ShelleyLedgerEra era)) of
Left err -> fail err
Right pParams -> prettyPrintJSON pParams === BS.toStrict serializedProtocolParams
Right pParams -> prettyPrintJSON pParams === LBS.toStrict serializedProtocolParams

-------------------------
-- Auxiliary generator --
Expand Down

0 comments on commit 1c8a727

Please sign in to comment.