From 3b090644f148acf856e925be59e6915ea524a3f8 Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 14 Mar 2010 12:42:20 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@25 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- Karma.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Karma.hs (limited to 'Karma.hs') diff --git a/Karma.hs b/Karma.hs new file mode 100644 index 0000000..9093936 --- /dev/null +++ b/Karma.hs @@ -0,0 +1,21 @@ +module Karma where + +data Karma = Karma { + karmaName :: String, + minPts :: Int, + minPerc :: Float + } deriving (Show, Read) + +instance Eq Karma where + x == y = (minPerc x) == (minPerc y) && (minPts x == minPts y) + +instance Ord Karma where + x > y + | (minPerc x) > (minPerc y) = True + | otherwise = (minPts x) > (minPts y) + x < y + | (minPerc x) < (minPerc y) = True + | otherwise = (minPts x) < (minPts y) + x >= y = not (x < y) + x <= y = not (x > y) + -- cgit v1.2.3