Skip to content
This repository was archived by the owner on Aug 18, 2020. It is now read-only.

Commit 1a04368

Browse files
committed
module description in Genesis.Convert
1 parent d5e09e1 commit 1a04368

File tree

1 file changed

+11
-3
lines changed

1 file changed

+11
-3
lines changed

src/lib/Ouroboros/Byron/Proxy/Genesis/Convert.hs

Lines changed: 11 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,14 @@
1+
{-|
2+
Module : Ouroboros.Byron.Proxy.Genesis.Convert
3+
Description : Conversion of legacy cardano-sl genesis configuration.
4+
5+
cardano-byron-proxy must use legacy cardano-sl genesis configuration in order
6+
to run the Byron side, and must also use a similar configuration to set up
7+
the Shelley side. The definitions in this module convert values of legacy Byron
8+
configuration types (cardano-sl) into their corresponding new Shelley
9+
types (cardano-ledger).
10+
-}
11+
112
{-# LANGUAGE ScopedTypeVariables #-}
213
{-# LANGUAGE GADTSyntax #-}
314
{-# LANGUAGE OverloadedStrings #-}
@@ -8,8 +19,6 @@
819
{-# LANGUAGE ApplicativeDo #-}
920
{-# LANGUAGE PatternSynonyms #-}
1021

11-
{-# LANGUAGE TypeFamilies #-}
12-
1322
module Ouroboros.Byron.Proxy.Genesis.Convert where
1423

1524
import Data.Coerce (coerce)
@@ -196,7 +205,6 @@ convertProtocolParameters bvd = Cardano.ProtocolParameters
196205
, Cardano.ppUnlockStakeEpoch = convertEpochIndex (CSL.bvdUnlockStakeEpoch bvd)
197206
}
198207

199-
200208
convertGenesisSpec :: CSL.GenesisSpec -> Cardano.GenesisSpec
201209
convertGenesisSpec gspec = Cardano.UnsafeGenesisSpec
202210
{ Cardano.gsAvvmDistr = convertAvvmDistr (CSL.gsAvvmDistr gspec)

0 commit comments

Comments
 (0)