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

1 files changed, 0 insertions, 21 deletions

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