Remove old tests

diff --git a/ttest.hs b/ttest.hs
deleted file mode 100644
index 0fb803d..0000000
--- a/ttest.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-import Templates
-import qualified Data.Map as M
-import System.IO
-
-mm = M.fromList [("title",TS "Some title"), ("users",TL ["vasya","petya"])]
-
-main = putStr $ render "first.html" mm
diff --git a/ttest2.hs b/ttest2.hs
deleted file mode 100644
index 85f7b2c..0000000
--- a/ttest2.hs
+++ /dev/null
@@ -1,36 +0,0 @@
-{-# LANGUAGE ExistentialQuantification, TypeSynonymInstances, OverlappingInstances #-}
-import qualified Data.Map as M
-import Data.List
-
-class Stringable a where
-  showT :: a -> String
-
-instance Stringable String where
-  showT = id
-
-instance (Stringable a) => Stringable [a] where
-  showT lst = concat $ intersperse ", " (map showT lst)
-
-data TContainer = TI Int | TS String | TL [String]
-
-instance Stringable TContainer where
-  showT (TI x) = show x
-  showT (TS s) = s
-  showT (TL l) = showT l
-
-mapF :: String -> (M.Map String TContainer -> String) -> M.Map String TContainer -> TContainer -> String
-mapF k f s (TL lst) = concat $ map f $ [M.insert k (TS v) s | v <- lst]
-
-render :: String -> M.Map String TContainer -> String
-render "test" pairs = concat [
-    "Text: "    ,
-    maybe "" showT (M.lookup "var" pairs)    ,
-    "..."    ,
-    mapF "i" (render "832") pairs $ maybe (TS []) id (M.lookup "users" pairs)]
-render "832" pairs = concat [
-    "<li>"    ,
-    maybe "" showT (M.lookup "i" pairs)    ,
-    "</li>"]
-
-
-