git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@25 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 21 insertions, 0 deletions

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)
+