Implements a help dialog in the TUI #63

Merged
pitmutt merged 257 commits from rav001 into dev041 2024-02-13 22:12:37 +00:00
Showing only changes of commit c5b7714917 - Show all commits

View file

@ -1491,12 +1491,9 @@ refreshAddressBook s = do
L.listSelectedElement $ L.listMoveToBeginning $ s ^. abAddresses L.listSelectedElement $ L.listMoveToBeginning $ s ^. abAddresses
return fAdd return fAdd
Just a2 -> return $ Just a2 Just a2 -> return $ Just a2
case selAddress of abookList <- getAdrBook pool (s ^. network)
Nothing -> return s let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
Just (_i, a) -> do return $ s & abAddresses .~ tL'
abookList <- getAdrBook pool (s ^. network)
let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
return $ s & abAddresses .~ tL'
addNewAddress :: T.Text -> Scope -> State -> IO State addNewAddress :: T.Text -> Scope -> State -> IO State
addNewAddress n scope s = do addNewAddress n scope s = do