minesweeper-0.8.8: Scores.hs

module Scores where



data ScoreEntry = ScoreEntry 
    { se_name    :: String
    , se_time    :: Int
    , se_alive   :: Rational
    , se_deaths  :: Int
    -- , se_success :: Double   -- könnyen számolható
    , se_history :: [Step]
    }
        deriving (Eq, Ord, Read, Show)

data ScoreAttr 
    = SA_Time 
    | SA_Alive 
    | SA_Success 
    | SA_Deaths
        deriving (Eq, Ord, Show, Read, Enum)