fix compilation errors

2022-08-03 20:59:37 +08:00 · 2022-08-03 20:59:37 +08:00 · 33e4ed037e
commit 33e4ed037e
parent caae87d564
36 changed files with 1325 additions and 1271 deletions
--- a/agora-specs/Property/Generator.hs
+++ b/agora-specs/Property/Generator.hs
@ -114,8 +114,10 @@ genInput = do
  val <- genSingletonValue
  return $
    input $
-      credential cred
-        . withValue val
+      mconcat
+        [ credential cred
+        , withValue val
+        ]

 genOutput :: Builder a => Gen a
 genOutput = do
@ -123,8 +125,10 @@ genOutput = do
  val <- genSingletonValue
  return $
    output $
-      credential cred
-        . withValue val
+      mconcat
+        [ credential cred
+        , withValue val
+        ]

 genOutRef :: Gen TxOutRef
 genOutRef = do
--- a/agora-specs/Property/Governor.hs
+++ b/agora-specs/Property/Governor.hs
@ -157,7 +157,13 @@ governorMintingProperty =
    -}
    gst = assetClassValue govAssetClass 1
    mintAmount x = mint . mconcat $ replicate x gst
-    outputToGov = output $ script govValidatorHash . withValue gst . withDatum govDatum
+    outputToGov =
+      output $
+        mconcat
+          [ script govValidatorHash
+          , withValue gst
+          , withDatum govDatum
+          ]
    referencedInput = input $ withOutRef gstUTXORef

    govDatum :: GovernorDatum