adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Implemented ship

Browse source
This commit is contained in:
Julien Dessaux 2023-07-04 19:37:50 +02:00
parent b3d57cb6ad
commit 78c5467c4a
Signed by: adyxax
GPG key ID: F92E51B86E07177E
10 changed files with 169 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
haskell/src/SpaceTraders/Database.hs
View file

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