diff --git a/data/Default.hs b/data/Default.hs
--- a/data/Default.hs
+++ b/data/Default.hs
@@ -212,6 +212,8 @@
 warn = fmap (const ()) ==> void
 error = flip (>=>) ==> (<=<)
 error = flip (<=<) ==> (>=>)
+error = (\x -> f x >>= g) ==> f Control.Monad.>=> g
+error = (\x -> f =<< g x) ==> f Control.Monad.<=< g
 error = a >> forever a ==> forever a
 warn = liftM2 id ==> ap
 
diff --git a/hlint.cabal b/hlint.cabal
--- a/hlint.cabal
+++ b/hlint.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               hlint
-version:            1.8.25
+version:            1.8.26
 -- license is GPL v2 only
 license:            GPL
 license-file:       LICENSE
@@ -42,7 +42,7 @@
         transformers >= 0.0 && < 0.4,
         hscolour >= 1.17 && < 1.20,
         cpphs >= 1.11 && < 1.14,
-        haskell-src-exts >= 1.11 && < 1.12,
+        haskell-src-exts >= 1.11 && < 1.13,
         uniplate >= 1.5 && < 1.7
 
     hs-source-dirs:     src
diff --git a/src/Hint/List.hs b/src/Hint/List.hs
--- a/src/Hint/List.hs
+++ b/src/Hint/List.hs
@@ -18,6 +18,7 @@
 data Yes = Yes (Maybe [Char]) -- Maybe String
 yes = y :: [Char] -> a -- String -> a
 instance C [Char]
+foo = [a b] ++ xs -- a b : xs
 </TEST>
 -}
 
@@ -66,7 +67,7 @@
         Just $ InfixApp an x2 (QConOp an $ list_cons_name an) y
     where
         f (Lit _ (String _ [x] _)) = Just $ Lit an $ Char an x (show x)
-        f (List _ [x]) = Just $ paren x
+        f (List _ [x]) = Just $ if isApp x then x else paren x
         f _ = Nothing
 useCons _ _ = Nothing