68ec269 · vty · git.iko.soy

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

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

85removeStyle sMask = modify $ \s ->

86 s { inlineAttr =

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

88− Default -> 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."

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

90 SetTo st -> st .&. complement sMask

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

92 }

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

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

27compile :: ClassifyMap -> String -> KClass

28compile table = cl' where

29 -- 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

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

32 eventForInput = M.fromList table

33 cl' [] = Prefix

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

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

355 setColors

356 -- implicitly resets the colors to the defaults

357 SetState state -> writeCapExpr (fromJust $ setAttrStates

358− $ displayAttrCaps

358+ $ displayAttrCaps terminfoCaps

359− $ terminfoCaps

360 )

359 )

361 (sgrArgsForState state)

360 (sgrArgsForState state)

362 `mappend` setItalics

361 `mappend` setItalics