From 1fd476e5856d0e57754857f44e3f34506bbac1e2 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Wed, 19 Feb 2020 23:37:36 +0000
Subject: [PATCH] [client] Fix initial editor contents

---
 src/Forest/Client/UiState.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Forest/Client/UiState.hs b/src/Forest/Client/UiState.hs
index 3dba747..82e625a 100644
--- a/src/Forest/Client/UiState.hs
+++ b/src/Forest/Client/UiState.hs
@@ -26,12 +26,11 @@ module Forest.Client.UiState
   , renderUiState
   ) where
 
-import qualified Graphics.Vty as Vty
 import           Brick
-import           Control.Monad
 import           Data.Maybe
 import qualified Data.Set                 as Set
 import qualified Data.Text                as T
+import qualified Graphics.Vty             as Vty
 
 import           Forest.Client.NodeEditor
 import           Forest.Client.NodeUtil
@@ -130,7 +129,7 @@ foldAtFocus s =
 
 editNode :: Bool -> Path -> UiState n -> UiState n
 editNode reply path s =
-  let text = maybe "" nodeText $ applyPath path $ uiRootNode s
+  let text = if reply then "" else nodeText $ getFocusedNode s
       editorInfo = EditorInfo
         { eiEditor = beginEdit (uiEditorName s) text
         , eiPath   = path