ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
remove redundant $s
This commit is contained in:
Jonathan Daugherty 2021-02-18 06:52:28 -08:00 committed by GitHub
commit b21145850c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Graphics/Vty/Inline.hs
View File

@ -85,8 +85,8 @@ removeStyle :: Style -> InlineM ()
removeStyle sMask = modify $ \s ->
s { inlineAttr =
let style' = case attrStyle (inlineAttr s) of
Default -> error $ "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."
KeepCurrent -> error $ "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."
Default -> error "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."
KeepCurrent -> error "Graphics.Vty.Inline: Cannot removeStyle if applyStyle never used."
SetTo st -> st .&. complement sMask
in (inlineAttr s) { attrStyle = SetTo style' }
}

2
src/Graphics/Vty/Input/Classify.hs
View File

@ -27,7 +27,7 @@ import Data.Word
compile :: ClassifyMap -> String -> KClass
compile table = cl' where
-- take all prefixes and create a set of these
prefixSet = S.fromList $ concatMap (init . inits . fst) $ table
prefixSet = S.fromList $ concatMap (init . inits . fst) table
maxValidInputLength = maximum (map (length . fst) table)
eventForInput = M.fromList table
cl' [] = Prefix

3
src/Graphics/Vty/Output/TerminfoBased.hs
View File

@ -354,8 +354,7 @@ terminfoWriteSetAttr dc terminfoCaps urlsEnabled prevAttr reqAttr diffs =
setColors
-- implicitly resets the colors to the defaults
SetState state -> writeCapExpr (fromJust $ setAttrStates
$ displayAttrCaps
$ terminfoCaps
$ displayAttrCaps terminfoCaps
)
(sgrArgsForState state)
`mappend` setItalics