claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-09-21 17:27:56 +02:00
Code Issues Projects Releases Packages Wiki Activity

writing and reading currency symbol

Browse source
This commit is contained in:
Lars Brünjes 2021-06-08 10:45:43 +02:00
parent d80641a9e0
commit d6524c0796
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
3 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
code/week10/.gitignore vendored
View file

@ -1,4 +1,5 @@
dist-newstyle/
symbol.json
uniswap.json
W1.cid
W2.cid

10
code/week10/app/uniswap-client.hs
View file

@ -16,7 +16,7 @@ import Data.Monoid (Last (..))
import Data.Proxy (Proxy (..))
import Data.Text (Text, pack)
import Data.UUID
import Ledger.Value (flattenValue)
import Ledger.Value (CurrencySymbol, flattenValue)
import Network.HTTP.Req
import Plutus.Contracts.Uniswap (Uniswap, UserContractState (..))
import Plutus.PAB.Events.ContractInstanceState (PartiallyDecodedResponse (..))
@ -34,14 +34,16 @@ main = do
w <- Wallet . read . head <$> getArgs
cid <- read <$> readFile (cidFile w)
mus <- decode <$> LB.readFile "uniswap.json"
case mus of
Nothing -> putStrLn "invalid uniswap.json" >> exitFailure
Just us -> do
mcs <- decode <$> LB.readFile "symbol.json"
case (mus, mcs) of
(Just us, Just cs) -> do
putStrLn $ "cid: " ++ show cid
putStrLn $ "uniswap: " ++ show (us :: Uniswap)
putStrLn $ "symbol: " ++ show (cs :: CurrencySymbol)
forever $ do
getFunds cid
threadDelay 1_000_000
_ -> putStrLn "invalid uniswap.json and/or symbol.json" >> exitFailure
getFunds :: UUID -> IO ()
getFunds uuid = handle h $ runReq defaultHttpConfig $ do

1
code/week10/app/uniswap-pab.hs
View file

@ -50,6 +50,7 @@ main = void $ Simulator.runSimulationWith handlers $ do
_ -> Nothing
_ <- Simulator.waitUntilFinished cidInit
liftIO $ LB.writeFile "symbol.json" $ encode cs
logString @(Builtin UniswapContracts) $ "Initialization finished. Minted: " ++ show cs
cidStart <- Simulator.activateContract (Wallet 1) UniswapStart