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

1 files changed, 0 insertions, 28 deletions

diff --git a/User.hs b/User.hs
deleted file mode 100644
index ba1a58c..0000000
--- a/User.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module User where
-
-import List
-
-import Karma
-import Render
-
-data User = User { 
-      userName :: String,
-      userPts :: Int 
-   } deriving (Show, Read) 
-
-instance Eq User where 
-   x == y = (userPts x) == (userPts y)
-
-instance Ord User where
-	x < y = (userPts x) < (userPts y)
-	x > y = (userPts x) > (userPts y)
-	x >= y = not (x < y)
-	x <= y = not (x > y)
-
-instance Render User where
-	render user = userName user ++ ": " ++ 
-		(show $ userPts user) ++ "pts"
-
-userEquals :: User -> User -> Bool
-userEquals x y = (userName x) == (userName y)
-