unpack the TxId in the TxIn

Co-authored-by: Duncan Coutts <[email protected]>
IntersectMBO · Jul 15, 2020 · 1af62c8 · 1af62c8
1 parent 6aeb5a8
commit 1af62c8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/TxData.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/TxData.hs
@@ -384,7 +384,7 @@ deriving newtype instance Crypto crypto => ToCBOR (TxId crypto)
 deriving newtype instance Crypto crypto => FromCBOR (TxId crypto)
 
 -- | The input of a UTxO.
-data TxIn crypto = TxInCompact !(TxId crypto) {-# UNPACK #-} !Word64
+data TxIn crypto = TxInCompact {-# UNPACK #-} !(TxId crypto) {-# UNPACK #-} !Word64
   deriving (Show, Eq, Generic, Ord, NFData)
 
 -- TODO: We will also want to have the TxId be compact, but the representation