b211458 · vty · git.iko.soy

git.iko.soy/vty

Merge pull request #216 from hapytex/hlint/redundant-dollar

remove redundant $s

commitb21145850c977996b71db37d903069639a782674 authorJonathan Daugherty <cygnus@foobox.com> dateThu 18 Feb 2021, 06:52 (6 years ago) parentfdad958 68ec269

3 files changed+4−5

compare with master

unifiedsplit

src/Graphics/Vty/Inline.hs+2−2 src/Graphics/Vty/Input/Classify.hs+1−1 src/Graphics/Vty/Output/TerminfoBased.hs+1−2

src/Graphics/Vty/Inline.hs+2−2

@@ -85,8 +85,8 @@ removeStyle :: Style -> InlineM ()

8585removeStyle sMask = modify $ \s ->

8686 s { inlineAttr =

8787 let style' = case attrStyle (inlineAttr s) of

88− Default -> error $ "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."

89− KeepCurrent -> error $ "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."

88+ Default -> error "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."

89+ KeepCurrent -> error "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."

9090 SetTo st -> st .&. complement sMask

9191 in (inlineAttr s) { attrStyle = SetTo style' }

9292 }

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

@@ -27,7 +27,7 @@ import Data.Word

2727compile :: ClassifyMap -> String -> KClass

2828compile table = cl' where

2929 -- take all prefixes and create a set of these

30− prefixSet = S.fromList $ concatMap (init . inits . fst) $ table

30+ prefixSet = S.fromList $ concatMap (init . inits . fst) table

3131 maxValidInputLength = maximum (map (length . fst) table)

3232 eventForInput = M.fromList table

3333 cl' [] = Prefix

src/Graphics/Vty/Output/TerminfoBased.hs+1−2

@@ -354,8 +354,7 @@ terminfoWriteSetAttr dc terminfoCaps urlsEnabled prevAttr reqAttr diffs =

354354 setColors

355355 -- implicitly resets the colors to the defaults

356356 SetState state -> writeCapExpr (fromJust $ setAttrStates

357− $ displayAttrCaps

358− $ terminfoCaps

357+ $ displayAttrCaps terminfoCaps

359358 )

360359 (sgrArgsForState state)

361360 `mappend` setItalics