From 8b3eef61dc3845134c09f539130670f57c95d02b Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Feb 2010 16:35:02 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@18
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot.hs | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/HsBot.hs b/HsBot.hs
index be77742..65e3670 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -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)
+
-- 
cgit v1.2.3