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