sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 16:04:52 +09:00
Code Issues Activity

Migration: When escaping names, forgot to surround then with "s

Browse source
This commit is contained in:
fr33domlover 2016-09-01 17:36:39 +00:00
parent bff41673c4
commit e027789fbd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Database/Persist/Schema/PostgreSQL.hs
View file

@ -36,7 +36,7 @@ quoteName =
let f '\0' _ = error "quoteName found \\0 character, invalid in names"
f '"' cs = '"' : '"' : cs
f c cs = c : cs
in T.pack . T.foldr f []
in T.pack . ('"' :) . T.foldr f "\""
table2sql :: TableName -> Text
table2sql = quoteName . unTableName