Updates hssqlppp to version 0.6.0.
This commit is contained in:
parent
835e30ca97
commit
3faf4ff82e
|
@ -1,3 +1,3 @@
|
|||
[submodule "lib/hssqlppp"]
|
||||
path = lib/hssqlppp
|
||||
url = https://github.com/abhin4v/hssqlppp
|
||||
url = https://github.com/JakeWheat/hssqlppp.git
|
||||
|
|
|
@ -1 +1 @@
|
|||
Subproject commit 3e0f0d0067799701d4176643e368a8c43a521ed9
|
||||
Subproject commit 5f7ff2c64e56c42acfd1623fae68e4424c85bac7
|
|
@ -33,7 +33,7 @@ library
|
|||
containers >=0.5 && <0.6,
|
||||
mtl >=2.1 && <2.3,
|
||||
raw-strings-qq >=1.0 && <1.2,
|
||||
hssqlppp ==0.5.23
|
||||
hssqlppp ==0.6.0
|
||||
ghc-options: -Wall -Werror -fwarn-incomplete-uni-patterns -fno-warn-unused-do-bind
|
||||
-fno-warn-orphans -funbox-strict-fields -O2
|
||||
default-language: Haskell2010
|
||||
|
|
|
@ -13,7 +13,8 @@ import Control.Applicative ((<$>))
|
|||
|
||||
import Control.Monad.Reader (Reader, asks, withReader)
|
||||
import Database.HsSqlPpp.Syntax ( Statement(..), RowConstraint(..), AlterTableAction(..)
|
||||
, AlterTableOperation(..), Constraint(..), Cascade(..) )
|
||||
, AlterTableOperation(..), Constraint(..), Cascade(..)
|
||||
, Replace(..) )
|
||||
import Data.Maybe (listToMaybe, maybeToList)
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (Text)
|
||||
|
@ -28,7 +29,7 @@ tableDefnStmts Table {..} = withReader envView $ do
|
|||
Settings {..} <- asks envSettings
|
||||
let tabName = tableName <> settingTableNameSuffixTemplate
|
||||
|
||||
tableSQL = CreateTable ea (name tabName) (map columnDefnSQL tableColumns) [] Nothing
|
||||
tableSQL = CreateTable ea (name tabName) (map columnDefnSQL tableColumns) [] Nothing NoReplace
|
||||
|
||||
columnDefnSQL Column {..} =
|
||||
attDef columnName columnType $ nullableDefnSQL columnNullable
|
||||
|
|
Loading…
Reference in New Issue