From 6f5773590d2a1453aba3c47bcca286c4ffeb93bd Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 11:00:50 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@48 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Logics/IRCKarma.hs | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 HsBot/Logics/IRCKarma.hs (limited to 'HsBot/Logics') diff --git a/HsBot/Logics/IRCKarma.hs b/HsBot/Logics/IRCKarma.hs deleted file mode 100644 index 55c74d7..0000000 --- a/HsBot/Logics/IRCKarma.hs +++ /dev/null @@ -1,27 +0,0 @@ -module HsBot.Logics.IrcKarma where - -import HsBot.Env -import HsBot.Logics - -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) - -instance Logics Karma where - logicsRun str env = return (env) - -- cgit v1.2.3