summaryrefslogtreecommitdiff
path: root/HsBot/Logics
diff options
context:
space:
mode:
Diffstat (limited to 'HsBot/Logics')
-rw-r--r--HsBot/Logics/IRCKarma.hs27
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)
-