ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

export "empty_image" from Graphics.Vty.Picture

Browse Source 
Ignore-this: 75203e75c39528fd287dc8e49ee8a361
thanks allan.clark@gmail.com

darcs-hash:20090906024209-f0a0d-df85e22d4bfc215993d148c02750e306ab986098.gz
This commit is contained in:
coreyoconnor 2009-09-05 19:42:09 -07:00
parent dcc295163e
commit f66f30b7cc
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Graphics/Vty/Image.hs
View File

@ -19,6 +19,7 @@ module Graphics.Vty.Image ( Image(..)
, utf8_string
, utf8_bytestring
, char_fill
, empty_image
-- | The possible display attributes used in constructing an `Image`.
, module Graphics.Vty.Attributes
)
@ -91,7 +92,11 @@ data Image =
{ output_width :: !Word -- >= 1
, output_height :: !Word -- >= 1
}
-- Any image of zero size equals the id image
-- The combining operators identity constant.
-- IdImage <|> a = a
-- IdImage <-> a = a
--
-- Any image of zero size equals the identity image.
| IdImage
deriving Eq
@ -310,3 +315,8 @@ char_fill :: Enum d => Attr -> Char -> d -> d -> Image
char_fill !a !c w h =
vert_cat $ replicate (fromEnum h) $ horiz_cat $ replicate (fromEnum w) $ char a c
-- | The empty image. Useful for fold combinators. These occupy no space nor define any display
-- attributes.
empty_image :: Image
empty_image = IdImage

1
src/Graphics/Vty/Picture.hs
View File

@ -16,6 +16,7 @@ module Graphics.Vty.Picture ( module Graphics.Vty.Picture
, utf8_string
, utf8_bytestring
, char_fill
, empty_image
-- | The possible display attributes used in constructing an `Image`.
, module Graphics.Vty.Attributes
)

1
test/Makefile
View File

@ -4,6 +4,7 @@ verify_control_strings \
verify_utf8_width \
verify_image_ops \
verify_image_trans \
verify_empty_image_props \
verify_picture_ops \
verify_span_ops \
verify_debug_terminal