nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-23 02:35:33 +03:00
Code Issues Projects Releases Wiki Activity

Clean up

Browse Source
This commit is contained in:
Nikita Volkov 2014-12-27 07:04:51 +03:00
parent ab44c1bb20
commit 89875c763a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hspec-postgres/Main.hs
View File

@ -81,10 +81,10 @@ main =
H.tx Nothing $ do
H.unitTx [H.stmt|DROP TABLE IF EXISTS data|]
H.unitTx [H.stmt|CREATE TABLE data (
field1 DECIMAL NOT NULL,
field2 BIGINT NOT NULL,
PRIMARY KEY (field1)
)|]
field1 DECIMAL NOT NULL,
field2 BIGINT NOT NULL,
PRIMARY KEY (field1)
)|]
H.unitTx [H.stmt|INSERT INTO data (field1, field2) VALUES (0, 0)|]
mrow :: Maybe (Double, Int64, String) <-
H.tx Nothing $