make hlint happy

2022-02-25 14:43:28 +01:00 · 2022-02-25 14:43:28 +01:00 · e4d1fdfbed
commit e4d1fdfbed
parent 3a1fba39b9
8 changed files with 45 additions and 43 deletions
--- a/src/Agora/Stake.hs
+++ b/src/Agora/Stake.hs
@ -55,14 +55,13 @@ data PStakeAction (gt :: MoneyClass) (s :: S)

 newtype PStakeDatum (gt :: MoneyClass) (s :: S) = PStakeDatum
  { getStakeDatum ::
-    ( Term
-        s
-        ( PDataRecord
-            '[ "stakedAmount" ':= Discrete gt
-             , "owner" ':= PPubKeyHash
-             ]
-        )
-    )
+    Term
+      s
+      ( PDataRecord
+          '[ "stakedAmount" ':= Discrete gt
+           , "owner" ':= PPubKeyHash
+           ]
+      )
  }
  deriving stock (GHC.Generic)
  deriving anyclass (Generic)