Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove debugging UI

Browse source
This commit is contained in:
Joscha 2020-02-09 22:34:21 +00:00
parent e0e23367c8
commit 62874a6d3f
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
client/Main.hs
View file

@ -131,10 +131,9 @@ onKeyWithEditor ed cs ev = do
{- Constructing the client app -} {- Constructing the client app -}
clientDraw :: ClientState -> [Widget ResourceName] clientDraw :: ClientState -> [Widget ResourceName]
clientDraw cs = [joinBorders $ withBorderStyle unicode $ tree <+> debug] clientDraw cs = [padTop (Pad 1) $ padLeft (Pad 2) tree]
where where
tree = borderWithLabel (txt "Tree") $ renderTree boxDrawingBranching (csEditor cs) (csTree cs) tree = renderTree boxDrawingBranching (csEditor cs) (csTree cs)
debug = borderWithLabel (txt "Debug") $ maybe (txt "No editor") (vBox . map txt . getCurrentText) (csEditor cs)
clientHandleEvent :: ClientState -> BrickEvent ResourceName () -> EventM ResourceName (Next ClientState) clientHandleEvent :: ClientState -> BrickEvent ResourceName () -> EventM ResourceName (Next ClientState)
clientHandleEvent cs (VtyEvent ev) = case csEditor cs of clientHandleEvent cs (VtyEvent ev) = case csEditor cs of