git.iko.soy/vty
on master help sign in
Whitespace
e49ea78Jonathan Daugherty
src/Graphics/Vty/Input.hs+1−1
compare with master
unifiedsplit
@@ -154,7 +154,7 @@ inputForConfig config@Config{ termName = Just termName
154 terminal <- Terminfo.setupTerm termName
154 terminal <- Terminfo.setupTerm termName
155 let inputOverrides = [(s,e) | (t,s,e) <- inputMap, t == Nothing || t == Just termName]
155 let inputOverrides = [(s,e) | (t,s,e) <- inputMap, t == Nothing || t == Just termName]
156 activeInputMap = classifyMapForTerm termName terminal `mappend` inputOverrides
156 activeInputMap = classifyMapForTerm termName terminal `mappend` inputOverrides
157− (setAttrs,unsetAttrs) <- attributeControl termFd
157+ (setAttrs, unsetAttrs) <- attributeControl termFd
158 setAttrs
158 setAttrs
159 input <- initInput config activeInputMap
159 input <- initInput config activeInputMap
160 let pokeIO = Catch $ do
160 let pokeIO = Catch $ do
src/Graphics/Vty/Input/Loop.hs+1−1
@@ -211,7 +211,7 @@ attributeControl fd = do
211 ]
211 ]
212 let setAttrs = setTerminalAttributes fd vtyMode Immediately
212 let setAttrs = setTerminalAttributes fd vtyMode Immediately
213 unsetAttrs = setTerminalAttributes fd original Immediately
213 unsetAttrs = setTerminalAttributes fd original Immediately
214− return (setAttrs,unsetAttrs)
214+ return (setAttrs, unsetAttrs)
215
215
216logInitialInputState :: Input -> ClassifyMap -> IO()
216logInitialInputState :: Input -> ClassifyMap -> IO()
217logInitialInputState input classifyTable = case _inputDebug input of
217logInitialInputState input classifyTable = case _inputDebug input of