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)