From d2dad6b63ec8d590c08198ba99d749933990dce2 Mon Sep 17 00:00:00 2001 From: Franco Testagrossa Date: Wed, 16 Aug 2023 09:31:08 +0200 Subject: [PATCH] improve by using a newtype deriving Show instead Co-authored-by: Sebastian Nagel --- hydra-node/src/Hydra/Snapshot.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/hydra-node/src/Hydra/Snapshot.hs b/hydra-node/src/Hydra/Snapshot.hs index 6af88331322..30d82869fb2 100644 --- a/hydra-node/src/Hydra/Snapshot.hs +++ b/hydra-node/src/Hydra/Snapshot.hs @@ -3,7 +3,7 @@ module Hydra.Snapshot where -import Hydra.Prelude hiding (show) +import Hydra.Prelude import Cardano.Crypto.Util (SignableRepresentation (..)) import Codec.Serialise (serialise) @@ -15,15 +15,11 @@ import Hydra.Ledger (IsTx (..)) import PlutusLedgerApi.V2 (toBuiltin, toData) import Test.QuickCheck (frequency, suchThat) import Test.QuickCheck.Instances.Natural () -import Text.Show (Show (..)) newtype SnapshotNumber = UnsafeSnapshotNumber Natural deriving (Eq, Ord, Generic) - deriving newtype (ToJSON, FromJSON, ToCBOR, FromCBOR, Real, Num, Enum, Integral) - -instance Show SnapshotNumber where - show (UnsafeSnapshotNumber n) = show n + deriving newtype (Show, ToJSON, FromJSON, ToCBOR, FromCBOR, Real, Num, Enum, Integral) instance Arbitrary SnapshotNumber where arbitrary = UnsafeSnapshotNumber <$> arbitrary