style: fourmolu

geniusyield · Jan 29, 2025 · 3d15d47 · 3d15d47
1 parent 67ab974
commit 3d15d47
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/src/GeniusYield/Test/Privnet/Examples/Gift.hs b/src/GeniusYield/Test/Privnet/Examples/Gift.hs
@@ -640,14 +640,14 @@ grabGifts validator = do
         Just $
           mconcat
             [ mustHaveInput
-              GYTxIn
-                { gyTxInTxOutRef = oref
-                , gyTxInWitness =
-                    GYTxInWitnessScript
-                      (GYBuildPlutusScriptInlined validator)
-                      (Just $ datumFromPlutus' od)
-                      unitRedeemer
-                }
+                GYTxIn
+                  { gyTxInTxOutRef = oref
+                  , gyTxInWitness =
+                      GYTxInWitnessScript
+                        (GYBuildPlutusScriptInlined validator)
+                        (Just $ datumFromPlutus' od)
+                        unitRedeemer
+                  }
             | (oref, (_addr, _value, od)) <- itoList datums
             ]
 
@@ -670,14 +670,14 @@ grabGiftsRef ref validator = do
         Just $
           mconcat
             [ mustHaveInput
-              GYTxIn
-                { gyTxInTxOutRef = oref
-                , gyTxInWitness =
-                    GYTxInWitnessScript
-                      (GYBuildPlutusScriptReference ref $ validatorToScript validator)
-                      (Just $ datumFromPlutus' od)
-                      unitRedeemer
-                }
+                GYTxIn
+                  { gyTxInTxOutRef = oref
+                  , gyTxInWitness =
+                      GYTxInWitnessScript
+                        (GYBuildPlutusScriptReference ref $ validatorToScript validator)
+                        (Just $ datumFromPlutus' od)
+                        unitRedeemer
+                  }
             | (oref, (_addr, _value, od)) <- itoList datums
             ]