Fix hlint hints

fmthoma · Jan 9, 2021 · 294a30b · 294a30b
1 parent 4cd7a98
commit 294a30b
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/Vgrep/Widget/Pager.hs b/src/Vgrep/Widget/Pager.hs
@@ -153,11 +153,10 @@ renderPager = do
     let (renderedLineNumbers, renderedTextLines)
             = over both fold
             . unzip
-            . map renderLine
-            $ zip [startPosition+1..] visibleLines
+            $ zipWith renderLine [startPosition+1..] visibleLines
           where
-            renderLine :: (Int, Text) -> (Image, Image)
-            renderLine (num, txt) = case Map.lookup num highlightedLines of
+            renderLine :: Int -> Text -> (Image, Image)
+            renderLine num txt = case Map.lookup num highlightedLines of
                 Just formatted -> ( renderLineNumber lineNumberColorHl num
                                   , renderFormatted textColorHl formatted )
                 Nothing        -> ( renderLineNumber lineNumberColor num