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 --- User.hs | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 User.hs (limited to 'User.hs') 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) - -- cgit v1.2.3