diff options
Diffstat (limited to 'haskell/src/SpaceTraders/Database.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Database.hs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/haskell/src/SpaceTraders/Database.hs b/haskell/src/SpaceTraders/Database.hs index fdc32d3..ac3aa7b 100644 --- a/haskell/src/SpaceTraders/Database.hs +++ b/haskell/src/SpaceTraders/Database.hs @@ -14,23 +14,24 @@ migrations :: [S.Query] migrations = [ [r|CREATE TABLE schema_version ( version INTEGER NOT NULL - ); - |], + );|], [r|CREATE TABLE tokens ( id INTEGER PRIMARY KEY, data TEXT NOT NULL - ); - |], + );|], [r|CREATE TABLE agents ( id INTEGER PRIMARY KEY, data TEXT NOT NULL - ); - |], + );|], [r|CREATE TABLE contracts ( id INTEGER PRIMARY KEY, data TEXT NOT NULL - ); - |]] + );|], + [r|CREATE TABLE ships ( + id INTEGER PRIMARY KEY, + data TEXT NOT NULL + );|], + [r|CREATE UNIQUE INDEX ships_data_symbol ON ships (json_extract(data, '$.symbol'));|]] close :: S.Connection -> IO () close conn = S.close conn |