Another mock

IntersectMBO · Nov 25, 2022 · fc386db · fc386db
1 parent 8d5d787
commit fc386db
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxOut.hs b/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/TxOut.hs
@@ -294,7 +294,8 @@ pattern AlonzoTxOut addr vl dh <-
         Just (Refl, dataHash32) <- encodeDataHash32 dh =
           TxOut_AddrHash28_AdaOnly_DataHash32 stakeCred addr28Extra adaCompact dataHash32
     AlonzoTxOut addr vl mdh =
-      let v = fromMaybe (error "Illegal value in txout") $ toCompact vl
+      let x = toCompact vl
+          v = fromMaybe (error "Illegal value in txout") $ x
           a = compactAddr addr
        in case mdh of
             SNothing -> TxOutCompact' a v