Format with fourmolu

Author: tochicool

scripts/PsbtSignTest.hs

@@ -1,11 +1,11 @@
 module Main (main) where
 
+import Bitcoin (PartiallySignedTransaction, SecKey)
+import qualified Bitcoin as H
 import qualified Data.ByteString as BS
 import Data.Maybe (fromMaybe)
 import qualified Data.Serialize as S
 import Data.Text (pack)
-import Bitcoin (PartiallySignedTransaction, SecKey)
-import qualified Bitcoin as H
 import System.Environment (getArgs)
 
 

src/Bitcoin.hs

@@ -27,3 +27,4 @@ import Bitcoin.Network as Network
 import Bitcoin.Script as Script
 import Bitcoin.Transaction as Transaction
 import Bitcoin.Util as Util
+

src/Bitcoin/Address.hs

@@ -46,6 +46,13 @@ module Bitcoin.Address (
     module Bitcoin.Address.Bech32,
 ) where
 
+import Bitcoin.Address.Base58
+import Bitcoin.Address.Bech32
+import Bitcoin.Crypto
+import Bitcoin.Data
+import Bitcoin.Keys.Common
+import Bitcoin.Script
+import Bitcoin.Util
 import Control.Applicative
 import Control.Arrow (second)
 import Control.DeepSeq
@@ -66,13 +73,6 @@ import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Word (Word8)
 import GHC.Generics (Generic)
-import Bitcoin.Address.Base58
-import Bitcoin.Address.Bech32
-import Bitcoin.Crypto
-import Bitcoin.Data
-import Bitcoin.Keys.Common
-import Bitcoin.Script
-import Bitcoin.Util
 
 
 -- | Address format for Bitcoin

src/Bitcoin/Address/Base58.hs

@@ -14,6 +14,8 @@ module Bitcoin.Address.Base58 (
     decodeBase58Check,
 ) where
 
+import Bitcoin.Crypto.Hash
+import Bitcoin.Util
 import Control.Monad
 import Data.Array
 import Data.ByteString (ByteString)
@@ -28,8 +30,6 @@ import Data.String.Conversions (cs)
 import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Word
-import Bitcoin.Crypto.Hash
-import Bitcoin.Util
 import Numeric (readInt, showIntAtBase)
 
 

src/Bitcoin/Block.hs

@@ -12,3 +12,4 @@ module Bitcoin.Block (
 import Bitcoin.Block.Common
 import Bitcoin.Block.Headers
 import Bitcoin.Block.Merkle
+

src/Bitcoin/Block/Common.hs

@@ -26,6 +26,10 @@ module Bitcoin.Block.Common (
     encodeCompact,
 ) where
 
+import Bitcoin.Crypto.Hash
+import Bitcoin.Network.Common
+import Bitcoin.Transaction.Common
+import Bitcoin.Util
 import Control.DeepSeq
 import Control.Monad (forM_, liftM2, mzero, replicateM, (<=<))
 import Data.Aeson (
@@ -66,10 +70,6 @@ import Data.String.Conversions (cs)
 import Data.Text (Text)
 import Data.Word (Word32)
 import GHC.Generics (Generic)
-import Bitcoin.Crypto.Hash
-import Bitcoin.Network.Common
-import Bitcoin.Transaction.Common
-import Bitcoin.Util
 import qualified Text.Read as R
 
 

src/Bitcoin/Block/Headers.hs

@@ -60,6 +60,11 @@ module Bitcoin.Block.Headers (
     lastSmallerOrEqual,
 ) where
 
+import Bitcoin.Block.Common
+import Bitcoin.Crypto
+import Bitcoin.Data
+import Bitcoin.Transaction.Genesis
+import Bitcoin.Util
 import Control.Applicative ((<|>))
 import Control.DeepSeq
 import Control.Monad (guard, mzero, unless, when)
@@ -97,11 +102,6 @@ import Data.Serialize (Serialize (..))
 import Data.Typeable (Typeable)
 import Data.Word (Word32, Word64)
 import GHC.Generics (Generic)
-import Bitcoin.Block.Common
-import Bitcoin.Crypto
-import Bitcoin.Data
-import Bitcoin.Transaction.Genesis
-import Bitcoin.Util
 
 
 -- | Short version of the block hash. Uses the good end of the hash (the part

src/Bitcoin/Block/Merkle.hs

@@ -29,6 +29,11 @@ module Bitcoin.Block.Merkle (
     boolsToWord8,
 ) where
 
+import Bitcoin.Block.Common
+import Bitcoin.Crypto.Hash
+import Bitcoin.Data
+import Bitcoin.Network.Common
+import Bitcoin.Transaction.Common
 import Control.DeepSeq
 import Control.Monad (forM_, replicateM, when)
 import Data.Binary (Binary (..))
@@ -43,11 +48,6 @@ import Data.Maybe
 import Data.Serialize (Serialize (..))
 import Data.Word (Word32, Word8)
 import GHC.Generics
-import Bitcoin.Block.Common
-import Bitcoin.Crypto.Hash
-import Bitcoin.Data
-import Bitcoin.Network.Common
-import Bitcoin.Transaction.Common
 
 
 -- | Hash of the block's Merkle root.

src/Bitcoin/Constants.hs

@@ -17,6 +17,10 @@ module Bitcoin.Constants (
     netByName,
 ) where
 
+import Bitcoin.Block
+import Bitcoin.Data
+import Bitcoin.Network.Common
+import Bitcoin.Transaction
 import Control.DeepSeq
 import Data.Binary (Binary (..))
 import Data.ByteString (ByteString)
@@ -30,10 +34,6 @@ import Data.String
 import Data.Text (Text)
 import Data.Word (Word32, Word64, Word8)
 import GHC.Generics (Generic)
-import Bitcoin.Block
-import Bitcoin.Data
-import Bitcoin.Network.Common
-import Bitcoin.Transaction
 import Text.Read
 
 

src/Bitcoin/Crypto.hs

@@ -9,6 +9,7 @@ module Bitcoin.Crypto (
     module Secp256k1,
 ) where
 
-import Crypto.Secp256k1 as Secp256k1
 import Bitcoin.Crypto.Hash as Hash
 import Bitcoin.Crypto.Signature as Signature
+import Crypto.Secp256k1 as Secp256k1
+