Status.hs

module Test.HUnit.Gui.Status (Status(..), succeeded)
where

import Test.HUnit.Base

data Status = Red
            | Green
              deriving (Show, Eq)

succeeded :: Counts -> Status
succeeded (Counts { errors = 0, failures = 0 }) = Green
succeeded _ = Red