Bugfix e5386cf

AmpersandTarski · Jul 26, 2016 · a1d7f67 · a1d7f67
1 parent 99364f4
commit a1d7f67
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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")