From 5bdac55e900a1b82645ddb2d227b40705555f00c Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 3 Sep 2012 17:02:49 -0300
Subject: [PATCH] Remove test code from Esqueleto.hs.

---
 src/Database/Esqueleto.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
index 0ada137..61edea3 100644
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -19,9 +19,3 @@ import Database.Esqueleto.Internal.Language
 import Database.Esqueleto.Internal.Sql
 import Database.Persist.Store
 import Database.Persist.GenericSql
-
--- test :: (PersistField t, PersistEntity a, PersistEntity b, PersistEntityBackend a ~ SqlPersist, PersistEntityBackend b ~ SqlPersist) => EntityField b t -> SqlPersist IO [(Entity a, Single t, Entity b)]
-test f = select $ do
-           (x,y,z) <- from
-           where_ (z^.f ==. y^.f)
-           return (x, y^.f, z)