diff options
| author | Julien Dessaux | 2023-07-11 21:55:55 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-11 21:56:35 +0200 |
| commit | 7bd1c116c26d0c2147aa787b04f6e7de85d44133 (patch) | |
| tree | 8d831b852eeb37a2d8e4c09062c0ed7c9b441d19 /haskell/src/SpaceTraders/Database.hs | |
| parent | [haskell] Refactored JSON parsing code (diff) | |
| download | spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.gz spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.bz2 spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.zip | |
[haskell] Implemented pagination and systems list api call
Diffstat (limited to 'haskell/src/SpaceTraders/Database.hs')
| -rw-r--r-- | haskell/src/SpaceTraders/Database.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/haskell/src/SpaceTraders/Database.hs b/haskell/src/SpaceTraders/Database.hs index ac3aa7b..4fffb07 100644 --- a/haskell/src/SpaceTraders/Database.hs +++ b/haskell/src/SpaceTraders/Database.hs @@ -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 |