vty 5.2.9 → 5.2.10

raw patch · 4 files changed

+7/−5 lines, 4 files

Files

• src/Graphics/Vty/Attributes.hs +3/−2
• src/Graphics/Vty/Attributes/Color.hs +1/−1
• src/Graphics/Vty/Image.hs +2/−1
• vty.cabal +1/−1

@@ -49,7 +49,7 @@     { attrStyle :: !(MaybeDefault Style)     , attrForeColor :: !(MaybeDefault Color)     , attrBackColor :: !(MaybeDefault Color)-    } deriving ( Eq, Show )+    } deriving ( Eq, Show, Read )  -- This could be encoded into a single 32 bit word. The 32 bit word is first divided -- into 4 groups of 8 bits where: The first group codes what action should be taken with regards to@@ -103,10 +103,11 @@ data MaybeDefault v where     Default :: MaybeDefault v     KeepCurrent :: MaybeDefault v-    SetTo :: forall v . ( Eq v, Show v ) => !v -> MaybeDefault v+    SetTo :: forall v . ( Eq v, Show v, Read v ) => !v -> MaybeDefault v  deriving instance Eq v => Eq (MaybeDefault v) deriving instance Eq v => Show (MaybeDefault v)+deriving instance (Eq v, Show v, Read v) => Read (MaybeDefault v)  instance Eq v => Monoid ( MaybeDefault v ) where     mempty = KeepCurrent

@@ -47,5 +47,5 @@ -- -- Seriously, terminal color support is INSANE. data Color = ISOColor !Word8 | Color240 !Word8-    deriving ( Eq, Show )+    deriving ( Eq, Show, Read ) 

@@ -117,7 +117,8 @@ -- directly to iso10646String or string. --  iso10646String :: Attr -> String -> Image-iso10646String a str = +iso10646String _ [] = EmptyImage+iso10646String a str =     let displayWidth = safeWcswidth str     in HorizText a (TL.pack str) displayWidth (length str) 

@@ -1,5 +1,5 @@ name:                vty-version:             5.2.9+version:             5.2.10 license:             BSD3 license-file:        LICENSE author:              AUTHORS