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

on cceeeee help sign in

32 lines 762 B history raw

1{-# OPTIONS_HADDOCK hide #-}

2module Graphics.Vty.Debug.Image where

4import Graphics.Vty.Image

6type ImageConstructLog = [ImageConstructEvent]

7data ImageConstructEvent = ImageConstructEvent

8 deriving ( Show, Eq )

10forwardImageOps :: [Image -> Image]

11forwardImageOps = map forwardTransform debugImageOps

13forwardTransform, reverseTransform :: ImageOp -> (Image -> Image)

15forwardTransform (ImageOp f _) = f

16reverseTransform (ImageOp _ r) = r

18data ImageOp = ImageOp ImageEndo ImageEndo

19type ImageEndo = Image -> Image

21debugImageOps :: [ImageOp]

22debugImageOps =

23 [ idImageOp

24 -- , renderSingleColumnCharOp

25 -- , renderDoubleColumnCharOp

26 ]

28idImageOp :: ImageOp

29idImageOp = ImageOp id id

31-- renderCharOp :: ImageOp

32-- renderCharOp = ImageOp id id