diff --git a/src/Database/Design/Ampersand/Prototype/Generate.hs b/src/Database/Design/Ampersand/Prototype/Generate.hs index a6956572ec..bd9b895b5e 100644 --- a/src/Database/Design/Ampersand/Prototype/Generate.hs +++ b/src/Database/Design/Ampersand/Prototype/Generate.hs @@ -107,7 +107,7 @@ plug2TableSpec plug (BinSQL{}, _) -> [] (TblSQL{}, primFld) -> case attUse primFld of - PrimaryKey _ -> ["PRIMARY KEY (`" <> (show . attName) primFld <> "`)" ] + PrimaryKey _ -> ["PRIMARY KEY (" <> (show . attName) primFld <> ")" ] ForeignKey c -> fatal 195 ("ForeignKey "<>name c<>"not expected here!") PlainAttr -> [] , tsEngn = dbEngine diff --git a/src/Database/Design/Ampersand/Prototype/PHP.hs b/src/Database/Design/Ampersand/Prototype/PHP.hs index ff3b12b5d4..61d40b8ad9 100644 --- a/src/Database/Design/Ampersand/Prototype/PHP.hs +++ b/src/Database/Design/Ampersand/Prototype/PHP.hs @@ -80,7 +80,7 @@ plug2TableSpec plug (BinSQL{}, _) -> [] (_, primAtt) -> case attUse primAtt of - PrimaryKey _ -> [ "PRIMARY KEY (`"<>Text.pack (attName primAtt)<>"`)"] + PrimaryKey _ -> [ "PRIMARY KEY ("<>Text.pack (attName primAtt)<>")"] ForeignKey c -> fatal 195 ("ForeignKey "<>name c<>"not expected here!") PlainAttr -> [] , "InnoDB DEFAULT CHARACTER SET UTF8 DEFAULT COLLATE UTF8_BIN")