claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-21 22:32:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

closing a pool

Browse source
This commit is contained in:
Lars Brünjes 2021-06-09 16:03:37 +02:00
parent 026a300bf4
commit 67daacefb5
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -51,6 +51,7 @@ main = do
Create amtA tnA amtB tnB -> createPool cid $ toCreateParams cs amtA tnA amtB tnB Create amtA tnA amtB tnB -> createPool cid $ toCreateParams cs amtA tnA amtB tnB
Add amtA tnA amtB tnB -> addLiquidity cid $ toAddParams cs amtA tnA amtB tnB Add amtA tnA amtB tnB -> addLiquidity cid $ toAddParams cs amtA tnA amtB tnB
Remove amt tnA tnB -> removeLiquidity cid $ toRemoveParams cs amt tnA tnB Remove amt tnA tnB -> removeLiquidity cid $ toRemoveParams cs amt tnA tnB
Close tnA tnB -> closePool cid $ toCloseParams cs tnA tnB
Swap amtA tnA tnB -> swap cid $ toSwapParams cs amtA tnA tnB Swap amtA tnA tnB -> swap cid $ toSwapParams cs amtA tnA tnB
go cid cs go cid cs
@ -60,12 +61,13 @@ data Command =
| Create Integer Char Integer Char | Create Integer Char Integer Char
| Add Integer Char Integer Char | Add Integer Char Integer Char
| Remove Integer Char Char | Remove Integer Char Char
| Close Char Char
| Swap Integer Char Char | Swap Integer Char Char
deriving (Show, Read, Eq, Ord) deriving (Show, Read, Eq, Ord)
readCommandIO :: IO Command readCommandIO :: IO Command
readCommandIO = do readCommandIO = do
putStrLn "Enter a command: Funds, Pools, Create amtA tnA amtB tnB, Add amtA tnA amtB tnB, Remove amt tnA tnB, Swap amtA tnA tnB" putStrLn "Enter a command: Funds, Pools, Create amtA tnA amtB tnB, Add amtA tnA amtB tnB, Remove amt tnA tnB, Close tnA tnB, Swap amtA tnA tnB"
s <- getLine s <- getLine
maybe readCommandIO return $ readMaybe s maybe readCommandIO return $ readMaybe s
@ -81,6 +83,9 @@ toAddParams cs amtA tnA amtB tnB = US.AddParams (toCoin cs tnA) (toCoin cs tnB)
toRemoveParams :: CurrencySymbol -> Integer -> Char -> Char -> US.RemoveParams toRemoveParams :: CurrencySymbol -> Integer -> Char -> Char -> US.RemoveParams
toRemoveParams cs amt tnA tnB = US.RemoveParams (toCoin cs tnA) (toCoin cs tnB) (US.Amount amt) toRemoveParams cs amt tnA tnB = US.RemoveParams (toCoin cs tnA) (toCoin cs tnB) (US.Amount amt)
toCloseParams :: CurrencySymbol -> Char -> Char -> US.CloseParams
toCloseParams cs tnA tnB = US.CloseParams (toCoin cs tnA) (toCoin cs tnB)
toSwapParams :: CurrencySymbol -> Integer -> Char -> Char -> US.SwapParams toSwapParams :: CurrencySymbol -> Integer -> Char -> Char -> US.SwapParams
toSwapParams cs amtA tnA tnB = US.SwapParams (toCoin cs tnA) (toCoin cs tnB) (US.Amount amtA) (US.Amount 0) toSwapParams cs amtA tnA tnB = US.SwapParams (toCoin cs tnA) (toCoin cs tnB) (US.Amount amtA) (US.Amount 0)
@ -88,7 +93,7 @@ showCoinHeader :: IO ()
showCoinHeader = printf "\n currency symbol token name amount\n\n" showCoinHeader = printf "\n currency symbol token name amount\n\n"
showCoin :: CurrencySymbol -> TokenName -> Integer -> IO () showCoin :: CurrencySymbol -> TokenName -> Integer -> IO ()
showCoin cs tn amt = printf "%64s %66s %15d\n" (show cs) (show tn) amt showCoin cs tn = printf "%64s %66s %15d\n" (show cs) (show tn)
getFunds :: UUID -> IO () getFunds :: UUID -> IO ()
getFunds cid = do getFunds cid = do
@ -166,6 +171,19 @@ removeLiquidity cid rp = do
Left err' -> putStrLn $ "error: " ++ show err' Left err' -> putStrLn $ "error: " ++ show err'
_ -> go _ -> go
closePool :: UUID -> US.CloseParams -> IO ()
closePool cid cp = do
callEndpoint cid "close" cp
threadDelay 2_000_000
go
where
go = do
e <- getStatus cid
case e of
Right US.Closed -> putStrLn "closed"
Left err' -> putStrLn $ "error: " ++ show err'
_ -> go
swap :: UUID -> US.SwapParams -> IO () swap :: UUID -> US.SwapParams -> IO ()
swap cid sp = do swap cid sp = do
callEndpoint cid "swap" sp callEndpoint cid "swap" sp