@@ -9,14 +9,14 @@ import qualified Data.HashSet as HS
99import qualified Data.List as List
1010import qualified Data.Text as Text
1111
12- import qualified PlutusTx as Tx
13- import qualified PlutusTx.Maybe as Maybe
14- import qualified PlutusTx.Prelude as Tx
15- import qualified PlutusTx.AssocMap as AssocMap
16- import PlutusTx (UnsafeFromData (unsafeFromBuiltinData ))
17-
18- -- Place for future imports
19- import PlutusLedgerApi.V1 (PubKeyHash (.. ),Credential (.. ),ScriptHash (.. ))
12+ -- import qualified PlutusTx as Tx
13+ -- import qualified PlutusTx.Maybe as Maybe
14+ -- import qualified PlutusTx.Prelude as Tx
15+ -- import qualified PlutusTx.AssocMap as AssocMap
16+ -- import PlutusTx (UnsafeFromData(unsafeFromBuiltinData))
17+ --
18+ -- -- Place for future imports
19+ -- import PlutusLedgerApi.V1 (PubKeyHash(..),Credential(..),ScriptHash(..))
2020--
2121--
2222--
@@ -29,38 +29,38 @@ import PlutusLedgerApi.V1 (PubKeyHash(..),Credential(..),ScriptHash(..))
2929--
3030--
3131
32- assocMap :: AssocMap. Map k v
33- assocMap = AssocMap. unsafeFromList mempty
34-
35- unsafeFromBuiltinData :: Integer
36- unsafeFromBuiltinData =
37- Tx. unsafeFromBuiltinData (error " we don't care" )
38-
39- usageOfPTxMaybe :: Integer
40- usageOfPTxMaybe = let
41- x = Maybe. fromMaybe 0 (Maybe. Just 1 )
42- in x
43-
44- pubKeyHashEq :: Bool
45- pubKeyHashEq = pubKeyHash == pubKeyHash
46- where
47- pubKeyHash :: PubKeyHash
48- pubKeyHash = error " we don't care"
49-
50- scriptHashEq :: Bool
51- scriptHashEq = scriptHash == scriptHash
52- where
53- scriptHash :: ScriptHash
54- scriptHash = error " we don't care"
55-
56- credentialHashEq :: Bool
57- credentialHashEq = credentialHash == credentialHash
58- where
59- credentialHash :: Credential
60- credentialHash = error " we don't care"
61-
62- credentialHashLe :: Bool
63- credentialHashLe = credentialHash < credentialHash
64- where
65- credentialHash :: Credential
66- credentialHash = error " we don't care"
32+ -- assocMap :: AssocMap.Map k v
33+ -- assocMap = AssocMap.unsafeFromList mempty
34+ --
35+ -- unsafeFromBuiltinData :: Integer
36+ -- unsafeFromBuiltinData =
37+ -- Tx.unsafeFromBuiltinData (error "we don't care")
38+ --
39+ -- usageOfPTxMaybe :: Integer
40+ -- usageOfPTxMaybe = let
41+ -- x = Maybe.fromMaybe 0 (Maybe.Just 1)
42+ -- in x
43+ --
44+ -- pubKeyHashEq :: Bool
45+ -- pubKeyHashEq = pubKeyHash == pubKeyHash
46+ -- where
47+ -- pubKeyHash :: PubKeyHash
48+ -- pubKeyHash = error "we don't care"
49+ --
50+ -- scriptHashEq :: Bool
51+ -- scriptHashEq = scriptHash == scriptHash
52+ -- where
53+ -- scriptHash :: ScriptHash
54+ -- scriptHash = error "we don't care"
55+ --
56+ -- credentialHashEq :: Bool
57+ -- credentialHashEq = credentialHash == credentialHash
58+ -- where
59+ -- credentialHash :: Credential
60+ -- credentialHash = error "we don't care"
61+ --
62+ -- credentialHashLe :: Bool
63+ -- credentialHashLe = credentialHash < credentialHash
64+ -- where
65+ -- credentialHash :: Credential
66+ -- credentialHash = error "we don't care"
0 commit comments