Skip to content
Permalink
Browse files

fix stack2nix and stylish-haskell

  • Loading branch information...
cleverca22 committed Mar 12, 2019
1 parent c43888a commit 2458e5e1649bdca73cb0f46b13ac8521c2cc4200

Some generated files are not rendered by default. Learn more.

Oops, something went wrong.
@@ -16419,6 +16419,7 @@ license = stdenv.lib.licenses.mit;
, base58-bytestring
, bytestring
, canonical-json
, cardano-crypto
, cardano-report-server
, cardano-sl
, cardano-sl-binary
@@ -16498,6 +16499,7 @@ base
base58-bytestring
bytestring
canonical-json
cardano-crypto
cardano-report-server
cardano-sl
cardano-sl-binary
@@ -3,15 +3,16 @@

module Main (main) where

import Cardano.Crypto.Wallet (unXPrv)
import qualified Data.ByteString as BS
import qualified Data.Text.Lazy.Builder as T
import Formatting (Format, bprint, fprint, hex, later, shown, (%))
import Formatting.Internal.Raw (left)
import Pos.Crypto (EncryptedSecretKey (eskHash, eskPayload),
getEncryptedPass)
import Pos.Util.Trace (fromTypeclassWlog)
import Pos.Util.UserSecret
import Universum
import Pos.Crypto (EncryptedSecretKey(eskPayload, eskHash), getEncryptedPass)
import Cardano.Crypto.Wallet (unXPrv)
import Formatting (bprint, hex, shown, (%), fprint, Format, later)
import qualified Data.ByteString as BS
import qualified Data.Text.Lazy.Builder as T
import Formatting.Internal.Raw (left)

hexString :: Format r (ByteString -> r)
hexString = later f
@@ -9,8 +9,9 @@ import Servant

import Cardano.Wallet.API.Response (APIResponse, ValidJSON)
import Cardano.Wallet.API.Types
import Cardano.Wallet.API.V1.Types (V1, Wallet, WalletImport, WalletBalance)
import Pos.Crypto.Signing (EncryptedSecretKey)
import Cardano.Wallet.API.V1.Types (V1, Wallet, WalletBalance,
WalletImport)
import Pos.Crypto.Signing (EncryptedSecretKey)

type API = Tag "Internal" ('TagDescription
"This section contains endpoints so-called 'Internal'. They are only\
@@ -8,10 +8,11 @@ import Pos.Chain.Update (SoftwareVersion)

import qualified Cardano.Wallet.API.Internal as Internal
import Cardano.Wallet.API.Response (APIResponse, single)
import Cardano.Wallet.API.V1.Types (V1, Wallet, WalletImport, WalletBalance)
import Cardano.Wallet.API.V1.Types (V1, Wallet, WalletBalance,
WalletImport)
import Cardano.Wallet.WalletLayer (PassiveWalletLayer)
import qualified Cardano.Wallet.WalletLayer as WalletLayer
import Pos.Crypto.Signing (EncryptedSecretKey)
import Pos.Crypto.Signing (EncryptedSecretKey)

handlers :: PassiveWalletLayer IO -> ServerT Internal.API Handler
handlers w = nextUpdate w
@@ -161,18 +161,19 @@ import Cardano.Wallet.Types.UtxoStatistics
import Cardano.Wallet.Util (mkJsonKey, showApiUtcTime)

import Cardano.Mnemonic (Mnemonic)
import Pos.Binary.Class (decodeFull')
import qualified Pos.Chain.Txp as Txp
import qualified Pos.Client.Txp.Util as Core
import qualified Pos.Core as Core
import Pos.Crypto (PublicKey (..), decodeHash, hashHexF, EncryptedSecretKey)
import Pos.Crypto (EncryptedSecretKey, PublicKey (..), decodeHash,
hashHexF)
import qualified Pos.Crypto.Signing as Core
import Pos.Infra.Communication.Types.Protocol ()
import Pos.Binary.Class (decodeFull')
import Pos.Infra.Diffusion.Subscription.Status
(SubscriptionStatus (..))
import Pos.Infra.Util.LogSafe (BuildableSafeGen (..), buildSafe,
buildSafeList, buildSafeMaybe, deriveSafeBuildable,
plainOrSecureF, SecureLog)
import Pos.Infra.Util.LogSafe (BuildableSafeGen (..), SecureLog,
buildSafe, buildSafeList, buildSafeMaybe,
deriveSafeBuildable, plainOrSecureF)
import Test.Pos.Core.Arbitrary ()

-- | Declare generic schema, while documenting properties
@@ -1636,7 +1637,7 @@ mkEncryptedSecretKey eskhex = join $

instance FromJSON EncryptedSecretKey where
parseJSON (String eskhex) = case mkEncryptedSecretKey eskhex of
Left e -> fail (toString e)
Left e -> fail (toString e)
Right esk -> pure esk
parseJSON x = typeMismatch "parseJSON failed for EncryptedSecretKey" x

@@ -50,8 +50,8 @@ import Cardano.Wallet.API.V1.Types (Account, AccountBalance,
ForceNtpCheck, NewAccount, NewAddress, NewWallet,
NodeInfo, NodeSettings, PasswordUpdate, Payment,
Redemption, SpendingPassword, Transaction, V1 (..),
Wallet, WalletAddress, WalletId, WalletImport,
WalletBalance, WalletUpdate)
Wallet, WalletAddress, WalletBalance, WalletId,
WalletImport, WalletUpdate)
import qualified Cardano.Wallet.Kernel.Accounts as Kernel
import qualified Cardano.Wallet.Kernel.Addresses as Kernel
import Cardano.Wallet.Kernel.CoinSelection.FromGeneric
@@ -1,7 +1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE RankNTypes #-}

module Cardano.Wallet.WalletLayer.Kernel
( bracketPassiveWallet
@@ -21,35 +21,37 @@ import qualified Formatting as F

import Pos.Chain.Block (Blund, blockHeader, headerHash, prevBlockL)
import Pos.Chain.Genesis (Config (..))
import Pos.Chain.Txp (TxIn, TxOutAux)
import Pos.Chain.Txp (Utxo, toaOut, txOutAddress, txOutValue)
import Pos.Chain.Update (HasUpdateConfiguration)
import Pos.Core.Chrono (OldestFirst (..))
import Pos.Crypto (ProtocolMagic, EncryptedSecretKey)
import Pos.Core.Common (Coin, mkCoin, unsafeAddCoin)
import Pos.Core.NetworkMagic (makeNetworkMagic)
import Pos.Crypto (EncryptedSecretKey, ProtocolMagic)
import Pos.DB.Txp.Utxo (getAllPotentiallyHugeUtxo)
import Pos.Infra.InjectFail (FInjects)
import Pos.Util.CompileInfo (HasCompileInfo)
import Pos.Util.Wlog (Severity (Debug, Warning))
import Pos.Core.Common (Coin, unsafeAddCoin, mkCoin)
import Pos.Chain.Txp (TxOutAux, TxIn)
import Pos.Core.NetworkMagic (makeNetworkMagic)
import Pos.DB.Txp.Utxo (getAllPotentiallyHugeUtxo)
import Pos.Chain.Txp (Utxo, toaOut, txOutAddress, txOutValue)
import Pos.Chain.Update (HasUpdateConfiguration)
import Pos.Util.CompileInfo(HasCompileInfo)

import Cardano.Wallet.Kernel.Internal (walletProtocolMagic, walletNode)
import Cardano.Wallet.API.V1.Types (V1 (V1), WalletBalance (..))
import qualified Cardano.Wallet.Kernel as Kernel
import Cardano.Wallet.Kernel.PrefilterTx (WalletKey, filterOurs)
import Cardano.Wallet.Kernel.Decrypt (eskToWalletDecrCredentials)
import Cardano.Wallet.Kernel.Types (WalletId(WalletIdHdRnd))
import qualified Cardano.Wallet.Kernel.Actions as Actions
import qualified Cardano.Wallet.Kernel.BListener as Kernel
import Cardano.Wallet.Kernel.DB.AcidState (dbHdWallets)
import Cardano.Wallet.Kernel.DB.HdWallet (hdAccountRestorationState,
hdRootId, hdWalletsRoots, eskToHdRootId, HdAddressId)
import Cardano.Wallet.Kernel.DB.HdWallet (HdAddressId, eskToHdRootId,
hdAccountRestorationState, hdRootId, hdWalletsRoots)
import qualified Cardano.Wallet.Kernel.DB.Read as Kernel
import qualified Cardano.Wallet.Kernel.DB.Util.IxSet as IxSet
import Cardano.Wallet.Kernel.Decrypt (eskToWalletDecrCredentials)
import Cardano.Wallet.Kernel.Diffusion (WalletDiffusion (..))
import Cardano.Wallet.Kernel.Internal (walletNode,
walletProtocolMagic)
import Cardano.Wallet.Kernel.Keystore (Keystore)
import Cardano.Wallet.Kernel.NodeStateAdaptor
import Cardano.Wallet.Kernel.PrefilterTx (WalletKey, filterOurs)
import qualified Cardano.Wallet.Kernel.Read as Kernel
import qualified Cardano.Wallet.Kernel.Restore as Kernel
import Cardano.Wallet.Kernel.Types (WalletId (WalletIdHdRnd))
import Cardano.Wallet.WalletLayer (ActiveWalletLayer (..),
PassiveWalletLayer (..))
import qualified Cardano.Wallet.WalletLayer.Kernel.Accounts as Accounts
@@ -60,7 +62,6 @@ import qualified Cardano.Wallet.WalletLayer.Kernel.Internal as Internal
import qualified Cardano.Wallet.WalletLayer.Kernel.Settings as Settings
import qualified Cardano.Wallet.WalletLayer.Kernel.Transactions as Transactions
import qualified Cardano.Wallet.WalletLayer.Kernel.Wallets as Wallets
import Cardano.Wallet.API.V1.Types (WalletBalance(..), V1(V1))

-- | Initialize the passive wallet.
-- The passive wallet cannot send new transactions.

0 comments on commit 2458e5e

Please sign in to comment.
You can’t perform that action at this time.