Skip to content
Permalink
Browse files

Use correct TxFeePolicy

  • Loading branch information...
ruhatch committed Mar 15, 2019
1 parent 338dc93 commit 3956898489258446b368ead299f11a35536ebb86
Showing with 9 additions and 8 deletions.
  1. +9 −8 test/Test/Cardano/Chain/Elaboration/Block.hs
@@ -1,7 +1,8 @@
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE TypeApplications #-}

-- | This module provides functionality for translating abstract blocks into
-- concrete blocks. The abstract blocks are generated according the small-step
@@ -43,7 +44,9 @@ import Ledger.Update (bkSgnCntW, bkSlotsPerEpoch, maxBkSz, maxHdrSz)
import Cardano.Chain.Common
( BlockCount(BlockCount)
, LovelacePortion(LovelacePortion)
, TxFeePolicy(TxFeePolicyUnknown)
, TxFeePolicy(TxFeePolicyTxSizeLinear)
, TxSizeLinear(TxSizeLinear)
, mkKnownLovelace
, mkStakeholderId
)

@@ -218,10 +221,8 @@ abEnvToCfg (_, vkgs, pps) = Genesis.Config genesisData genesisHash Nothing
(LovelacePortion 0)
(LovelacePortion 0)
(LovelacePortion 0)
--TODO: TxFeePolicyUnknown no longer exists, what is this supposed to be?
, Update.ppTxFeePolicy = TxFeePolicyUnknown
0
"Fee policy unspecified at \"Test.Cardano.Chain.Block.Validation.Spec\""
, Update.ppTxFeePolicy = TxFeePolicyTxSizeLinear
$ TxSizeLinear (mkKnownLovelace @0) (mkKnownLovelace @0)
, Update.ppUnlockStakeEpoch = 0
}

0 comments on commit 3956898

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