b211458 · 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

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

354 setColors

355 -- implicitly resets the colors to the defaults

356 SetState state -> writeCapExpr (fromJust $ setAttrStates

357− $ displayAttrCaps

357+ $ displayAttrCaps terminfoCaps

358− $ terminfoCaps

359 )

358 )

360 (sgrArgsForState state)

359 (sgrArgsForState state)

361 `mappend` setItalics

360 `mappend` setItalics