Skip to content

Commit da12a1c

Browse files
committed
Remove extraneous quoting of table name
1 parent 72426d4 commit da12a1c

File tree

3 files changed

+2
-5
lines changed

3 files changed

+2
-5
lines changed

cabal.project

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,4 +16,3 @@ package pg-entity
1616
"-L /usr/pgsql-14/lib" -fwrite-ide-info -hiedir=.hie -haddock
1717
haddock-options:
1818
"--optghc=-L /usr/pgsql-14/lib"
19-
allow-newer: all

pg-entity.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ category: Database
1616
license: MIT
1717
build-type: Simple
1818
tested-with:
19-
GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.8 || ==9.4.5
19+
GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.8 || ==9.4.8
2020

2121
extra-source-files:
2222
CHANGELOG.md

src/Database/PostgreSQL/Entity.hs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -365,9 +365,7 @@ _select = textToQuery $ "SELECT " <> expandQualifiedFields @e <> " FROM " <> get
365365
@since 0.0.1.0
366366
-}
367367
_selectWithFields :: forall e. Entity e => Vector Field -> Query
368-
_selectWithFields fs = textToQuery $ "SELECT " <> expandQualifiedFields' fs tn <> " FROM " <> quoteName tn
369-
where
370-
tn = getTableName @e
368+
_selectWithFields fs = textToQuery $ "SELECT " <> expandQualifiedFields' fs tn <> " FROM " <> getTableName @e
371369

372370
{-| Produce a WHERE clause, given a vector of fields.
373371

0 commit comments

Comments
 (0)