git.iko.soy/vty
on 83ddf77 help sign in
vty/src/Graphics/Vty/Debug/Image.hs
31 lines 733 B history raw
1module Graphics.Vty.Debug.Image where
3import Graphics.Vty.Image
5type ImageConstructLog = [ImageConstructEvent]
6data ImageConstructEvent = ImageConstructEvent
7 deriving ( Show, Eq )
9forwardImageOps :: [Image -> Image]
10forwardImageOps = map forwardTransform debugImageOps
12forwardTransform, reverseTransform :: ImageOp -> (Image -> Image)
14forwardTransform (ImageOp f _) = f
15reverseTransform (ImageOp _ r) = r
17data ImageOp = ImageOp ImageEndo ImageEndo
18type ImageEndo = Image -> Image
20debugImageOps :: [ImageOp]
21debugImageOps =
22 [ idImageOp
23 -- , renderSingleColumnCharOp
24 -- , renderDoubleColumnCharOp
25 ]
27idImageOp :: ImageOp
28idImageOp = ImageOp id id
30-- renderCharOp :: ImageOp
31-- renderCharOp = ImageOp id id