ormolu

IntersectMBO · Jan 5, 2021 · a49b709 · a49b709
1 parent f6944f6
commit a49b709
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 9 deletions.
diff --git a/alonzo/impl/src/Cardano/Ledger/Alonzo/TxBody.hs b/alonzo/impl/src/Cardano/Ledger/Alonzo/TxBody.hs
@@ -10,8 +10,8 @@
 {-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
 
@@ -38,15 +38,15 @@ module Cardano.Ledger.Alonzo.TxBody
   )
 where
 
-import qualified Cardano.Crypto.Hash as Hash
-import Cardano.Ledger.Crypto (HASH)
 import Cardano.Binary (FromCBOR (..), ToCBOR (..))
+import qualified Cardano.Crypto.Hash as Hash
 import Cardano.Ledger.Alonzo.Data (DataHash)
 import Cardano.Ledger.Alonzo.Scripts (ExUnits)
 import Cardano.Ledger.Alonzo.TxWitness (ScriptDataHash)
 import Cardano.Ledger.AuxiliaryData (AuxiliaryDataHash)
 import Cardano.Ledger.Compactible
 import qualified Cardano.Ledger.Core as Core
+import Cardano.Ledger.Crypto (HASH)
 import qualified Cardano.Ledger.Crypto as CC
 import Cardano.Ledger.Era (Crypto, Era)
 import Cardano.Ledger.Mary.Value (Value)
@@ -348,14 +348,18 @@ instance CC.Crypto crypto => FromCBOR (TxIn crypto) where
   fromCBOR = decode $ RecD TxInCompact <! From <! From <! From
 
 instance
-  (Era era,
-  ToCBOR (CompactForm (Core.Value era))) =>
+  ( Era era,
+    ToCBOR (CompactForm (Core.Value era))
+  ) =>
   ToCBOR (TxOut era)
   where
   toCBOR (TxOutCompact addr cv dh) =
     encode $
       Rec @(CompactAddr (Crypto era) -> CompactForm (Core.Value era) -> StrictMaybe (DataHash (Crypto era)) -> TxOut era)
-        TxOutCompact !> To addr !> To cv !> To dh
+        TxOutCompact
+        !> To addr
+        !> To cv
+        !> To dh
 
 instance
   ( Era era,

diff --git a/alonzo/impl/src/Cardano/Ledger/Alonzo/TxWitness.hs b/alonzo/impl/src/Cardano/Ledger/Alonzo/TxWitness.hs
@@ -176,8 +176,7 @@ instance
       . unScriptDataConstr
       $ _witsScriptData m
 
-instance
-  HasField "witsRdmrs" (TxWitness era) (Map RdmrPtr (Data era)) where
+instance HasField "witsRdmrs" (TxWitness era) (Map RdmrPtr (Data era)) where
   getField (TxWitnessConstr (Memo m _)) =
     _scriptDataRdmrs
       . memotype

diff --git a/alonzo/impl/test/lib/Test/Cardano/Ledger/Alonzo/Serialisation/Generators.hs b/alonzo/impl/test/lib/Test/Cardano/Ledger/Alonzo/Serialisation/Generators.hs
@@ -17,10 +17,10 @@ import Cardano.Ledger.Alonzo.Scripts
 import Cardano.Ledger.Alonzo.Tx
 import Cardano.Ledger.Alonzo.TxBody
   ( IsFee (..),
+    PPHash (..),
     TxBody (TxBody),
     TxIn (..),
     TxOut (..),
-    PPHash (..)
   )
 import Cardano.Ledger.Alonzo.TxWitness
 import qualified Cardano.Ledger.Core as Core