claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-22 06:42:00 +01: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/ dist-newstyle/
symbol.json
uniswap.json uniswap.json
W1.cid W1.cid
W2.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.Proxy (Proxy (..))
import Data.Text (Text, pack) import Data.Text (Text, pack)
import Data.UUID import Data.UUID
import Ledger.Value (flattenValue) import Ledger.Value (CurrencySymbol, flattenValue)
import Network.HTTP.Req import Network.HTTP.Req
import Plutus.Contracts.Uniswap (Uniswap, UserContractState (..)) import Plutus.Contracts.Uniswap (Uniswap, UserContractState (..))
import Plutus.PAB.Events.ContractInstanceState (PartiallyDecodedResponse (..)) import Plutus.PAB.Events.ContractInstanceState (PartiallyDecodedResponse (..))
@ -34,14 +34,16 @@ main = do
w <- Wallet . read . head <$> getArgs w <- Wallet . read . head <$> getArgs
cid <- read <$> readFile (cidFile w) cid <- read <$> readFile (cidFile w)
mus <- decode <$> LB.readFile "uniswap.json" mus <- decode <$> LB.readFile "uniswap.json"
case mus of mcs <- decode <$> LB.readFile "symbol.json"
Nothing -> putStrLn "invalid uniswap.json" >> exitFailure case (mus, mcs) of
Just us -> do (Just us, Just cs) -> do
putStrLn $ "cid: " ++ show cid putStrLn $ "cid: " ++ show cid
putStrLn $ "uniswap: " ++ show (us :: Uniswap) putStrLn $ "uniswap: " ++ show (us :: Uniswap)
putStrLn $ "symbol: " ++ show (cs :: CurrencySymbol)
forever $ do forever $ do
getFunds cid getFunds cid
threadDelay 1_000_000 threadDelay 1_000_000
_ -> putStrLn "invalid uniswap.json and/or symbol.json" >> exitFailure
getFunds :: UUID -> IO () getFunds :: UUID -> IO ()
getFunds uuid = handle h $ runReq defaultHttpConfig $ do 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 _ -> Nothing
_ <- Simulator.waitUntilFinished cidInit _ <- Simulator.waitUntilFinished cidInit
liftIO $ LB.writeFile "symbol.json" $ encode cs
logString @(Builtin UniswapContracts) $ "Initialization finished. Minted: " ++ show cs logString @(Builtin UniswapContracts) $ "Initialization finished. Minted: " ++ show cs
cidStart <- Simulator.activateContract (Wallet 1) UniswapStart cidStart <- Simulator.activateContract (Wallet 1) UniswapStart