Repository : ssh://darcs.haskell.org//srv/darcs/packages/terminfo On branch : master
http://hackage.haskell.org/trac/ghc/changeset/07e3a92df74c19253ad8295d0ab48fe915208d34 >--------------------------------------------------------------- commit 07e3a92df74c19253ad8295d0ab48fe915208d34 Author: Judah Jacobson <[email protected]> Date: Wed Aug 3 18:57:42 2011 +0000 Add Show,Eq,Ord instances for the Color datatype. >--------------------------------------------------------------- System/Console/Terminfo/Color.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/System/Console/Terminfo/Color.hs b/System/Console/Terminfo/Color.hs index fb79abb..2c30266 100644 --- a/System/Console/Terminfo/Color.hs +++ b/System/Console/Terminfo/Color.hs @@ -33,6 +33,8 @@ termColors = tiGetNum "colors" data Color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White | ColorNumber Int + deriving (Show,Eq,Ord) + colorIntA, colorInt :: Color -> Int _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
