From 561aa6d45ed2c7dc6cd177bab5c31f6d8fccde66 Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 10:34:23 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- Karma.hs | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 Karma.hs (limited to 'Karma.hs') diff --git a/Karma.hs b/Karma.hs deleted file mode 100644 index 9093936..0000000 --- a/Karma.hs +++ /dev/null @@ -1,21 +0,0 @@ -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