35b1597 · vty · git.iko.soy

src/Graphics/Vty/Image/Internal.hs+1−1

compare with master

unifiedsplit

@@ -33,7 +33,7 @@ data Image =

33 }

34 -- | A horizontal join can be constructed between any two images. However a HorizJoin instance is

35 -- required to be between two images of equal height. The horiz_join constructor adds background

36− -- filles to the provided images that assure this is true for the HorizJoin value produced.

36+ -- fills to the provided images that assure this is true for the HorizJoin value produced.

37 | HorizJoin

38 { part_left :: Image

39 , part_right :: Image

src/Graphics/Vty/Inline.hs+1−1

@@ -31,7 +31,7 @@ module Graphics.Vty.Inline ( module Graphics.Vty.Inline

31

32import Graphics.Vty.Attributes

33import Graphics.Vty.DisplayAttributes

34−import Graphics.Vty.Inline.Hack

34+import Graphics.Vty.Inline.Unsafe

35import Graphics.Vty.Terminal.Interface

36import Graphics.Vty.Terminal

37

src/Graphics/Vty/Inline/Hack.hs → src/Graphics/Vty/Inline/Unsafe.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Graphics.Vty.Inline.Hack where

1+module Graphics.Vty.Inline.Unsafe where

2

3import Graphics.Vty.Terminal.Interface (Terminal)

4

test/benchmark.hs+2−2

@@ -32,10 +32,10 @@ main = do

32 ["-h" ] -> help

33 _ -> do

34 let args' = if args /= []

35− then args

35+ then map (drop 2) args

36 else map fst benches

37 -- drop the dash-dash "--"

38− results <- forM args' $ \(_ : _ : b_name) -> do

38+ results <- forM args' $ \b_name -> do

39 case lookup b_name benches of

40 Just b -> bench b_name b

41 Nothing -> fail $ "No benchmark named " ++ b_name

test/current_benchmark_results.txt+8−17

@@ -1,20 +1,11 @@

1−pre-release 5.0

1+no unclipped opt 5.0

2+on toast

2[("no-diff-opt-0",147,8),("render-char-0",332,18),("render-char-1",277,16),("vertical-scroll-0",1503,61),("image-fuzz-0",46,3)]

3[("no-diff-opt-0",147,8),("render-char-0",332,18),("render-char-1",277,16),("vertical-scroll-0",1503,61),("image-fuzz-0",46,3)]

3[("no-diff-opt-0",137,11),("render-char-0",470,18),("render-char-1",254,18),("vertical-scroll-0",1240,56),("image-fuzz-0",46,3)]

4[("no-diff-opt-0",137,11),("render-char-0",470,18),("render-char-1",254,18),("vertical-scroll-0",1240,56),("image-fuzz-0",46,3)]

4−release 4.7

5+

5−starting no-diff-opt-0

6+on ooyala

6−user time: 226

7+pre unclipped opt

7−system time: 13

8+[("no-diff-opt-0",24,3),("render-char-0",102,8),("render-char-1",41,4),("vertical-scroll-0",226,24),("image-fuzz-0",17,1)]

8−starting render-char-0

9+

9−user time: 411

10+release 4.7 on toast

10−system time: 22

11−starting render-char-1

12−user time: 386

13−system time: 21

14−starting vertical-scroll-0

15−user time: 1930

16−system time: 96

17−starting image-fuzz-0

18−user time: 1225

19−system time: 52

20[("no-diff-opt-0",226,13),("render-char-0",411,22),("render-char-1",386,21),("vertical-scroll-0",1930,96),("image-fuzz-0",1225,52)]

11[("no-diff-opt-0",226,13),("render-char-0",411,22),("render-char-1",386,21),("vertical-scroll-0",1930,96),("image-fuzz-0",1225,52)]

test/interactive_terminal_testnew file

Binary file not shown.

vty.cabal+1−1

@@ -58,6 +58,7 @@ library

58 Graphics.Vty.Error

59 Graphics.Vty.Image

60 Graphics.Vty.Inline

61+ Graphics.Vty.Inline.Unsafe

61 Graphics.Vty.LLInput

62 Graphics.Vty.LLInput

62 Graphics.Vty.Picture

63 Graphics.Vty.Picture

63 Graphics.Vty.Terminal

64 Graphics.Vty.Terminal

@@ -79,7 +80,6 @@ library

79 Graphics.Vty.Terminal.XTermColor

80 Graphics.Vty.Terminal.XTermColor

80 Graphics.Vty.Terminal.TerminfoBased

81 Graphics.Vty.Terminal.TerminfoBased

81

82

82− other-modules: Graphics.Vty.Inline.Hack

83

84 c-sources: cbits/gwinsz.c

85 cbits/set_term_timing.c