lodewallet/hydra-demo
21
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Clean up UI

Browse Source
This commit is contained in:
Adriaan Leijnse 2022-10-25 13:52:40 +01:00
parent c76e19b502
commit 3b9fb22a36
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

@ -195,7 +195,7 @@ runHydraDemo nodes = do
liftIO . putStrLn $ "Publishing reference scripts"
hstxid <- publishReferenceScripts
handles <- standupDemoHydraNetwork hstxid (fmap fst keysAddresses)
liftIO . putStrLn $ [i|"Hydra Network Running for nodes #{Map.keys nodes}|]
liftIO . putStrLn $ [i|Hydra Network Running for nodes #{Map.keys nodes}|]
pure $ Map.merge Map.dropMissing Map.dropMissing (Map.zipWithMatched (\_ addr (handle, nodeInfo) -> (handle, addr, nodeInfo))) (fmap snd keysAddresses) handles
@ -220,7 +220,6 @@ main = liftIO $ do
makeTx :: () => IORef State -> Text
-> Map TxIn TxInInfo -> Lovelace -> Text -> IO Text
makeTx hydraProcessHandlesRef fromName utxos lovelace toName = do
print (fromName, utxos, toName)
let lovelaceUtxos = mapMaybe (Map.lookup "lovelace" . HT.value) utxos
actors <- readIORef hydraProcessHandlesRef
jsonStr <-
@ -466,7 +465,7 @@ app = do
<=< buttonClass "bg-green-400 hover:bg-green-400 active:bg-green-200 text-white font-bold text-xl my-2 px-4 py-2 rounded-md w-32" $ text "Do fanout"
elClass "div" "mt-4" $ do
elClass "div" "mb-1 font-semibold text-sm" $ text "Hydra Node Log"
elClass "div" "p-2 bg-gray-800 rounded-md drop-shadow" $
elClass "div" "p-2 bg-gray-800 rounded-md drop-shadow break-all" $
el "ul" $ do
comms <- foldDyn (++) [] $
((:[]) . ("Rcv: " <>) . toStrict . toLazyText . encodeToTextBuilder . toJSON <$> webSocketMessage)