    module Test.Framework.Runners.Console.Colors where

    import Text.PrettyPrint.ANSI.Leijen ( green, red, Doc )

    colorFail, colorPass :: Doc -> Doc
    colorFail :: Doc -> Doc
    colorFail = Doc -> Doc
    red
    colorPass :: Doc -> Doc
    colorPass = Doc -> Doc
    green

    colorPassOrFail :: Bool -> Doc -> Doc
    colorPassOrFail :: Bool -> Doc -> Doc
    colorPassOrFail Bool
    True  = Doc -> Doc
    colorPass
    colorPassOrFail Bool
    False = Doc -> Doc
    colorFail