-----------------------------------------------------------------------------
-- |
-- Module      :  Results
-- Copyright   :  (c) Don Stewart 2007
-- License     :  BSD3-style (see LICENSE)
-- 
-- Maintainer  :  dons@cse.unsw.edu.au
-- Stability   :  experimental
--
-----------------------------------------------------------------------------
module Results where

-- The following types are used in both bench.hs and gen-report.hs

data Results =
    Results
        { category  :: String
        , test_url  :: String
        , test      :: String
        , results   :: [(String,Either Error Double)]
        } deriving (Show,Read,Eq)

-- 
data Error
    = CompileError String
    | RuntimeError String
    | TimeoutError
    | DiffError    String
    deriving (Show,Read,Eq)

data Version = Version String String
    deriving (Read)

------------------------------------------------------------------------