git.iko.soy/vty
on 30fd552 help sign in
vty/src/Graphics/Vty/Debug/Image.hs
30 lines 736 B history raw
1{-# LANGUAGE ScopedTypeVariables #-}
2module Graphics.Vty.Debug.Image where
4import Graphics.Vty.Image
6type ImageConstructLog = [ImageConstructEvent]
7data ImageConstructEvent = ImageConstructEvent
8 deriving ( Show, Eq )
10forward_image_ops = map forward_transform debug_image_ops
12forward_transform, reverse_transform :: ImageOp -> (Image -> Image)
14forward_transform (ImageOp f _) = f
15reverse_transform (ImageOp _ r) = r
17data ImageOp = ImageOp ImageEndo ImageEndo
18type ImageEndo = Image -> Image
20debug_image_ops =
21 [ id_image_op
22 -- , render_single_column_char_op
23 -- , render_double_column_char_op
24 ]
26id_image_op :: ImageOp
27id_image_op = ImageOp id id
29-- render_char_op :: ImageOp
30-- render_char_op = ImageOp id id