diff --git a/src/Graphics/Vty/Inline.hs b/src/Graphics/Vty/Inline.hs
index 04cbd6c..1061ab8 100644
--- a/src/Graphics/Vty/Inline.hs
+++ b/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' }
       }
diff --git a/src/Graphics/Vty/Input/Classify.hs b/src/Graphics/Vty/Input/Classify.hs
index 4895ddf..f1fcfb9 100644
--- a/src/Graphics/Vty/Input/Classify.hs
+++ b/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
diff --git a/src/Graphics/Vty/Output/TerminfoBased.hs b/src/Graphics/Vty/Output/TerminfoBased.hs
index d593af3..1a9e264 100644
--- a/src/Graphics/Vty/Output/TerminfoBased.hs
+++ b/src/Graphics/Vty/Output/TerminfoBased.hs
@@ -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