Fix compilation errors

cardano-scaling · Feb 6, 2023 · d22a236 · d22a236
1 parent b0468ee
commit d22a236
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hydra-plutus/src/Hydra/Contract/Head.hs b/hydra-plutus/src/Hydra/Contract/Head.hs
@@ -479,8 +479,8 @@ findParticipationTokens headCurrency (Value val) =
 {-# INLINEABLE findParticipationTokens #-}
 
 headOutputDatum :: ScriptContext -> Datum
-headOutputDatum ScriptContext{scriptContextTxInfo} =
-  findTxOutDatum scriptContextTxInfo (head $ txInfoOutputs txInfo)
+headOutputDatum ctx =
+  findTxOutDatum txInfo (head $ txInfoOutputs txInfo)
  where
   ScriptContext{scriptContextTxInfo = txInfo} = ctx
 {-# INLINEABLE headOutputDatum #-}