Update src/Cooked/Output.hs

Co-authored-by: Florent C. <florentc@users.noreply.github.com>
tweag · Jun 19, 2024 · fc22f6b · fc22f6b
1 parent 136e71c
commit fc22f6b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Cooked/Output.hs b/src/Cooked/Output.hs
@@ -186,7 +186,11 @@ isScriptOutput _ = Nothing
 
 -- | Test if the owner of an output is a specific script
 isScriptOutputFrom :: (IsTxInfoOutput out, ToScriptHash s) => s -> out -> Maybe (ConcreteOutput s (DatumType out) (ValueType out) (ReferenceScriptType out))
-isScriptOutputFrom validator out = isScriptOutput out >>= (\x -> if toScriptHash validator == x ^. outputOwnerL then Just (x {concreteOutputOwner = validator}) else Nothing)
+isScriptOutputFrom validator out = do
+  x <- isScriptOutput out
+  if toScriptHash validator == x ^. outputOwnerL
+    then Just (x {concreteOutputOwner = validator})
+    else Nothing
 
 -- Test if the owner of an output is a public key
 isPKOutput :: (IsTxInfoOutput out) => out -> Maybe (ConcreteOutput Api.PubKeyHash (DatumType out) (ValueType out) (ReferenceScriptType out))