e49ea78 · vty · git.iko.soy

Whitespace

commite49ea784723b1b0a6ace6610d417674ea3f36873 authorJonathan Daugherty <cygnus@foobox.com> dateThu 9 Jul 2020, 14:14 (6 years ago) parentbe263d4

2 files changed+2−2

unifiedsplit

src/Graphics/Vty/Input.hs+1−1

@@ -154,7 +154,7 @@ inputForConfig config@Config{ termName = Just termName

154154 terminal <- Terminfo.setupTerm termName

155155 let inputOverrides = [(s,e) | (t,s,e) <- inputMap, t == Nothing || t == Just termName]

156156 activeInputMap = classifyMapForTerm termName terminal `mappend` inputOverrides

157− (setAttrs,unsetAttrs) <- attributeControl termFd

157+ (setAttrs, unsetAttrs) <- attributeControl termFd

158158 setAttrs

159159 input <- initInput config activeInputMap

160160 let pokeIO = Catch $ do

src/Graphics/Vty/Input/Loop.hs+1−1

@@ -211,7 +211,7 @@ attributeControl fd = do

211211 ]

212212 let setAttrs = setTerminalAttributes fd vtyMode Immediately

213213 unsetAttrs = setTerminalAttributes fd original Immediately

214− return (setAttrs,unsetAttrs)

214+ return (setAttrs, unsetAttrs)

215215

216216logInitialInputState :: Input -> ClassifyMap -> IO()

217217logInitialInputState input classifyTable = case _inputDebug input of