run linter

2022-11-10 22:27:33 +08:00 · 2022-11-10 22:27:33 +08:00 · ce875864ea
commit ce875864ea
parent ce98183237
1 changed files with 13 additions and 10 deletions
--- a/agora-specs/Sample/Proposal/Advance.hs
+++ b/agora-specs/Sample/Proposal/Advance.hs
@ -547,17 +547,20 @@ mkTestTree name pb val =
              (spend proposalRef)

    governor =
-      maybe [] singleton $
-        ( \(GovernorParameters _ governorRedeemer) ->
-            testValidator
-              (fromJust val.forGovernorValidator)
-              "governor"
-              governorValidator
-              governorInputDatum
-              governorRedeemer
-              (spend governorRef)
+      maybe
+        []
+        ( singleton
+            . ( \(GovernorParameters _ governorRedeemer) ->
+                  testValidator
+                    (fromJust val.forGovernorValidator)
+                    "governor"
+                    governorValidator
+                    governorInputDatum
+                    governorRedeemer
+                    (spend governorRef)
+              )
        )
-          <$> pb.governorParameters
+        (pb.governorParameters)

    authority = case pb.authorityTokenParameters of
      [] -> []