avoid lambda expressions

src/Data/Sequence/Extra.hs

@@ -7,7 +7,7 @@ import Data.Sequence
 import Control.Parallel.Strategies
 
 instance NFData a => NFData (Seq a) where
-    rnf = \v -> rnf' (viewl v)
+    rnf = rnf' . viewl
         where
             rnf' EmptyL = ()
             rnf' (a :< r) = rnf a >| rnf' (viewl r)

src/Data/Terminfo/Parse.hs

@@ -39,7 +39,7 @@ instance Show CapExpression where
         ++ " <= " ++ show (sourceString c)
         where
             hexDump :: [Word8] -> String
-            hexDump = foldr (\b s -> showHex b s) ""
+            hexDump = foldr showHex ""
 
 instance NFData CapExpression where
     rnf (CapExpression ops !_bytes !str !c !pOps)

src/Graphics/Vty/Output/TerminfoBased.hs

@@ -203,7 +203,7 @@ reserveTerminal termName outFd = do
             , assumedStateRef = newAssumedStateRef
             -- I think fix would help assure tActual is the only
             -- reference. I was having issues tho.
-            , mkDisplayContext = \tActual -> terminfoDisplayContext tActual terminfoCaps
+            , mkDisplayContext = (`terminfoDisplayContext` terminfoCaps)
             }
         sendCap s = sendCapToTerminal t (s terminfoCaps)
         maybeSendCap s = when (isJust $ s terminfoCaps) . sendCap (fromJust . s)

src/Graphics/Vty/PictureToSpans.hs

@@ -81,7 +81,7 @@ combinedOpsForLayers :: Picture -> DisplayRegion -> ST s (MRowOps s)
 combinedOpsForLayers pic r
     | regionWidth r == 0 || regionHeight r == 0 = MVector.new 0
     | otherwise = do
-        layerOps <- mapM (\layer -> buildSpans layer r) (picLayers pic)
+        layerOps <- mapM (`buildSpans` layer) (picLayers pic)
         case layerOps of
             []    -> fail "empty picture"
             [ops] -> substituteSkips (picBackground pic) ops