src/Graphics/Vty/Debug/Image.hs · vty

on 08c42ea help sign in

32 lines 803 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 :: [Image -> Image]

11forward_image_ops = map forward_transform debug_image_ops

13forward_transform, reverse_transform :: ImageOp -> (Image -> Image)

15forward_transform (ImageOp f _) = f

16reverse_transform (ImageOp _ r) = r

18data ImageOp = ImageOp ImageEndo ImageEndo

19type ImageEndo = Image -> Image

21debug_image_ops :: [ImageOp]

22debug_image_ops =

23 [ id_image_op

24 -- , render_single_column_char_op

25 -- , render_double_column_char_op

26 ]

28id_image_op :: ImageOp

29id_image_op = ImageOp id id

31-- render_char_op :: ImageOp

32-- render_char_op = ImageOp id id