remove redundant $s

src/Graphics/Vty/Inline.hs

@@ -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' }
       }

src/Graphics/Vty/Input/Classify.hs

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

src/Graphics/Vty/Output/TerminfoBased.hs

@@ -355,8 +355,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