Skip to content

Commit 21dc69e

Browse files
committed
tmp: remove plutustx
1 parent d72eb4c commit 21dc69e

File tree

4 files changed

+49
-66
lines changed

4 files changed

+49
-66
lines changed

.stan.toml

Lines changed: 0 additions & 17 deletions
This file was deleted.

cabal.project

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ index-state:
2222
packages:
2323
.
2424

25-
source-repository-package
26-
type: git
27-
location: https://github.com/bogdan-manole/extensions
28-
tag: 439a3333d616a67783e2e22cf364ead9b18062ac
25+
-- source-repository-package
26+
-- type: git
27+
-- location: https://github.com/bogdan-manole/extensions
28+
-- tag: 439a3333d616a67783e2e22cf364ead9b18062ac

stan.cabal

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -175,8 +175,8 @@ library target
175175
, filepath
176176
, text
177177
, unordered-containers
178-
, plutus-tx ^>=1.29
179-
, plutus-ledger-api ^>=1.29
178+
-- , plutus-ledger-api ^>=1.29
179+
-- , plutus-tx ^>=1.29
180180

181181
exposed-modules: Target.AntiPattern
182182
Target.AntiPattern.Stan0206

target/Target/PlutusTx.hs

Lines changed: 43 additions & 43 deletions
Original file line numberDiff line numberDiff line change
@@ -9,14 +9,14 @@ import qualified Data.HashSet as HS
99
import qualified Data.List as List
1010
import 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

Comments
 (0)