haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove test code from Esqueleto.hs.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-03 17:02:49 -03:00
parent 3330e6c4ee
commit 5bdac55e90
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Database/Esqueleto.hs
View File

@ -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)