diff options
| -rw-r--r-- | HsBot.hs | 20 |
1 files changed, 9 insertions, 11 deletions
@@ -127,9 +127,9 @@ uniq :: (Eq a) => [a] -> [a] uniq list = let r = u' list 0 u' [] _ = [] - u' (x:list) n - | member x r n = u' list n - | otherwise = x:(u' list (n + 1)) + u' (x:list) n + | member x r n = u' list n + | otherwise = x:(u' list (n + 1)) member e list 0 = False member y (x:list) n = x == y || member y list (n - 1) in r @@ -218,14 +218,6 @@ load = do file <- readFile database return ( read file :: Conf ) -makeConf :: Conf -makeConf = makeTestConf - -makeIOConf :: IO Conf -makeIOConf = return (makeConf) - --- This will be removed once - makeTestConf :: Conf makeTestConf = Conf { line = "", @@ -257,3 +249,9 @@ makeTestConf = Conf { Karma "Cool dude" 0 0 ] } +makeConf :: Conf +makeConf = makeTestConf + +makeIOConf :: IO Conf +makeIOConf = return (makeConf) + |