dfa4c1e · vty · git.iko.soy

git.iko.soy/vty

Merge pull request #207 from hapytex/hlint/redundant-bracket

remove useless parenthesis and ellipse

commitdfa4c1ec080be27b2f692639349de0ac5a4549ae authorJonathan Daugherty <cygnus@foobox.com> dateMon 15 Feb 2021, 15:58 (6 years ago) parentab621ee 9c47955

3 files changed+5−5

compare with master

unifiedsplit

src/Data/Terminfo/Parse.hs+3−3 src/Graphics/Vty/Input/Loop.hs+1−1 src/Graphics/Vty/Input/Terminfo.hs+1−1

src/Data/Terminfo/Parse.hs+3−3

@@ -336,9 +336,9 @@ data BuildResults = BuildResults

336336instance Semigroup BuildResults where

337337 v0 <> v1

338338 = BuildResults

339− { outParamCount = (outParamCount v0) `max` (outParamCount v1)

340− , outCapOps = (outCapOps v0) <> (outCapOps v1)

341− , outParamOps = (outParamOps v0) <> (outParamOps v1)

339+ { outParamCount = outParamCount v0 `max` outParamCount v1

340+ , outCapOps = outCapOps v0 <> outCapOps v1

341+ , outParamOps = outParamOps v0 <> outParamOps v1

342342 }

343343

344344instance Monoid BuildResults where

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

@@ -224,7 +224,7 @@ logInitialInputState input classifyTable = case _inputDebug input of

224224 Just h -> do

225225 Config{ vmin = Just theVmin

226226 , vtime = Just theVtime

227− , termName = Just theTerm, .. } <- readIORef $ _configRef input

227+ , termName = Just theTerm } <- readIORef $ _configRef input

228228 _ <- hPrintf h "initial (vmin,vtime): %s\n" (show (theVmin, theVtime))

229229 forM_ classifyTable $ \i -> case i of

230230 (inBytes, EvKey k mods) -> hPrintf h "map %s %s %s %s\n" (show theTerm)

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

@@ -74,7 +74,7 @@ visibleChars = [ ([x], EvKey (KChar x) [])

7474ctrlChars :: ClassifyMap

7575ctrlChars =

7676 [ ([toEnum x],EvKey (KChar y) [MCtrl])

77− | (x,y) <- zip ([0..31]) ('@':['a'..'z']++['['..'_'])

77+ | (x,y) <- zip [0..31] ('@':['a'..'z']++['['..'_'])

7878 , y /= 'i' -- Resolve issue #3 where CTRL-i hides TAB.

7979 , y /= 'h' -- CTRL-h should not hide BS

8080 ]