From 561aa6d45ed2c7dc6cd177bab5c31f6d8fccde66 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 10:34:23 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Tools.hs | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100644 Tools.hs

(limited to 'Tools.hs')

diff --git a/Tools.hs b/Tools.hs
deleted file mode 100644
index e28d4f9..0000000
--- a/Tools.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-module Tools where
-
-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))
-  	    member e list 0 = False
-  	    member y (x:list) n = x == y || member y list (n - 1)
-    in r
-
-split :: String -> Char -> [String]
-split [] delim = [""]
-split (c:cs) delim 
-      | c == delim = "" : rest
-   	| otherwise = (c : head rest) : tail rest
-   where rest = split cs delim
-
-empty :: String -> Bool
-empty str = length str == 0
-
-contains :: String -> Char -> Bool
-contains str char = takeWhile (/= char) str /= str
-
-isMultiline :: String -> Bool
-isMultiline str = contains str '\n'
-
-showL :: Show a => [a] -> [String]
-showL = map (\x -> show x ++ "\n")
-
-- 
cgit v1.2.3