Skip to content

Commit

Permalink
no more gadts in initial distrib
Browse files Browse the repository at this point in the history
  • Loading branch information
mmontin committed Mar 20, 2024
1 parent d86c2fd commit d9a2138
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/Cooked/InitialDistribution.hs
Original file line number Diff line number Diff line change
@@ -1,5 +1,3 @@
{-# LANGUAGE GADTs #-}

-- | This module provides a convenient way to spread assets between
-- wallets and scripts at the initialization of the mock chain. These
-- initial assets can be accompanied by datums and reference scripts.
Expand Down Expand Up @@ -36,8 +34,7 @@ import qualified Plutus.Script.Utils.Value as Pl
-- > , (wallet 2 , [ ada 10 ])
-- > , (wallet 3 , [ ada 10 <> permanentValue "XYZ" 10])
-- > ]
data InitialDistribution where
InitialDistribution :: {initialDistribution :: [TxSkelOut]} -> InitialDistribution
newtype InitialDistribution = InitialDistribution {unInitialDistribution :: [TxSkelOut]}

-- | 5 UTxOs with 100 Ada each, for each of the 'knownWallets',
-- without any datum nor scripts
Expand Down

0 comments on commit d9a2138

Please sign in to comment.