adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Implemented pagination and systems list api call

Browse source
This commit is contained in:
Julien Dessaux 2023-07-11 21:55:55 +02:00
parent 8249bf432a
commit 7bd1c116c2
Signed by: adyxax
GPG key ID: F92E51B86E07177E
9 changed files with 186 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,7 +31,12 @@ migrations = [
id INTEGER PRIMARY KEY,
data TEXT NOT NULL
);|],
[r|CREATE UNIQUE INDEX ships_data_symbol ON ships (json_extract(data, '$.symbol'));|]]
[r|CREATE UNIQUE INDEX ships_data_symbol ON ships (json_extract(data, '$.symbol'));|],
[r|CREATE TABLE systems (
id INTEGER PRIMARY KEY,
data TEXT NOT NULL
);|],
[r|CREATE UNIQUE INDEX systems_data_symbol ON systems (json_extract(data, '$.symbol'));|]]
close :: S.Connection -> IO ()
close conn = S.close conn