git.iko.soy/vty
on master help sign in
Merge pull request #202 from hapytex/hlint/eta-reduction

eta reductions

commitf0f729d75579788f345690b4e24042ab63a2f2fd authorJonathan Daugherty <cygnus@foobox.com> dateTue 16 Feb 2021, 09:45 (6 years ago) parent572c598ec463f1
4 files changed+6−6
compare with master
unifiedsplit
src/Data/Terminfo/Eval.hs+1−1 src/Graphics/Vty/Image/Internal.hs+1−1 src/Graphics/Vty/PictureToSpans.hs+2−2 src/Graphics/Vty/Span.hs+2−2
src/Data/Terminfo/Eval.hs+1−1
@@ -64,7 +64,7 @@ writeCapExpr cap params =
6464 in snd $ runWriter (runStateT (writeCapOps (capOps cap)) s0)
6565
6666writeCapOps :: CapOps -> Eval ()
67−writeCapOps ops = mapM_ writeCapOp ops
67+writeCapOps = mapM_ writeCapOp
6868
6969writeCapOp :: CapOp -> Eval ()
7070writeCapOp (Bytes !offset !count) = do
src/Graphics/Vty/Image/Internal.hs+1−1
@@ -146,7 +146,7 @@ data Image =
146146
147147-- | pretty print just the structure of an image.
148148ppImageStructure :: Image -> String
149−ppImageStructure inImg = go 0 inImg
149+ppImageStructure = go 0
150150 where
151151 go indent img = tab indent ++ pp indent img
152152 tab indent = concat $ replicate indent " "
src/Graphics/Vty/PictureToSpans.hs+2−2
@@ -136,8 +136,8 @@ mergeUnder upper lower = do
136136 return upper
137137
138138mergeRowUnder :: SpanOps -> SpanOps -> SpanOps
139−mergeRowUnder upperRowOps lowerRowOps =
140− onUpperOp Vector.empty (Vector.head upperRowOps) (Vector.tail upperRowOps) lowerRowOps
139+mergeRowUnder upperRowOps =
140+ onUpperOp Vector.empty (Vector.head upperRowOps) (Vector.tail upperRowOps)
141141 where
142142 -- H: it will never be the case that we are out of upper ops
143143 -- before lower ops.
src/Graphics/Vty/Span.hs+2−2
@@ -52,7 +52,7 @@ dropOps :: Int -> SpanOps -> SpanOps
5252dropOps w = snd . splitOpsAt w
5353
5454splitOpsAt :: Int -> SpanOps -> (SpanOps, SpanOps)
55−splitOpsAt inW inOps = splitOpsAt' inW inOps
55+splitOpsAt = splitOpsAt'
5656 where
5757 splitOpsAt' 0 ops = (Vector.empty, ops)
5858 splitOpsAt' remainingColumns ops = case Vector.head ops of
@@ -103,7 +103,7 @@ displayOpsColumns ops
103103
104104-- | The number of rows the DisplayOps are defined for.
105105displayOpsRows :: DisplayOps -> Int
106−displayOpsRows ops = Vector.length ops
106+displayOpsRows = Vector.length
107107
108108affectedRegion :: DisplayOps -> DisplayRegion
109109affectedRegion ops = (displayOpsColumns ops, displayOpsRows ops)