diff options
Diffstat (limited to 'HsBot/Logics')
| -rw-r--r-- | HsBot/Logics/IRCKarma.hs | 27 |
1 files changed, 0 insertions, 27 deletions
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) - |
