ec463f1 · vty · git.iko.soy

git.iko.soy/vty

eta reductions

commitec463f1c8569efdb6ee3858712a6a8d6877521a4 authorWillem Van Onsem <vanonsem.willem@gmail.com> dateMon 15 Feb 2021, 12:12 (6 years ago) parent90ea183

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)