99361de · vty · git.iko.soy

on master help sign in

Add Generic instance for Image

99361deJonathan Daugherty10 years ago

src/Graphics/Vty/Image/Internal.hs+4−1

@@ -1,5 +1,6 @@

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE NamedFieldPuns #-}

3+{-# LANGUAGE DeriveGeneric #-}

3{-# OPTIONS_HADDOCK hide #-}

4{-# OPTIONS_HADDOCK hide #-}

5#ifndef MIN_VERSION_base

6#ifndef MIN_VERSION_base

@@ -11,6 +12,8 @@ module Graphics.Vty.Image.Internal where

11import Graphics.Vty.Attributes

12import Graphics.Vty.Attributes

12import Graphics.Text.Width

13import Graphics.Text.Width

15+import GHC.Generics

16+

14import Control.DeepSeq

17import Control.DeepSeq

16import qualified Data.Text.Lazy as TL

19import qualified Data.Text.Lazy as TL

@@ -139,7 +142,7 @@ data Image =

139 --

142 --

140 -- Any image of zero size equals the empty image.

143 -- Any image of zero size equals the empty image.

141 | EmptyImage

144 | EmptyImage

142− deriving Eq

145+ deriving (Eq, Generic)

143

146

144instance Show Image where

147instance Show Image where

145 show ( HorizText { attr, displayText, outputWidth, charWidth } )

148 show ( HorizText { attr, displayText, outputWidth, charWidth } )