Commit before changing TerminalCommand to produce [TerminalLine]

This commit is contained in:
2022-06-06 20:25:38 +01:00
parent b20502bc35
commit 1fe41889fe
8 changed files with 32 additions and 28 deletions
+1 -2
View File
@@ -145,8 +145,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
]
where
displayTermInput tp = case _tmInput tp of
Nothing -> id
Just (TerminalInput s inputstatus _)
TerminalInput s inputstatus _
-> (++ [('>':T.unpack s++displayBlinkCursor inputstatus,white)])
displayBlinkCursor inputstatus | inputstatus = clockCycle 10 (V.fromList ["_",""]) w
| otherwise = []