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

Write FROM on the queries.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-03 23:13:40 -03:00
parent 670eebbc96
commit 979ea1c6d1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Database/Esqueleto/Internal/Sql.hs
View File

@ -222,7 +222,8 @@ uncommas' xs =
makeFrom :: Escape -> [FromClause] -> TLB.Builder makeFrom :: Escape -> [FromClause] -> TLB.Builder
makeFrom esc = uncommas . map mk makeFrom _ [] = mempty
makeFrom esc fs = "\nFROM " <> uncommas (map mk fs)
where where
mk (From (I i) def) = esc (entityDB def) <> (" AS " <> i) mk (From (I i) def) = esc (entityDB def) <> (" AS " <> i)