Updates hssqlppp to version 0.6.0.

pull/1/head
Abhinav Sarkar 2016-04-24 16:47:53 +05:30
parent 835e30ca97
commit 3faf4ff82e
No known key found for this signature in database
GPG Key ID: 7C9166A6F5465AD5
4 changed files with 6 additions and 5 deletions

2
.gitmodules vendored
View File

@ -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

View File

@ -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

View File

@ -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