diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-03-25 02:16:32 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-03-25 02:17:18 +0900 |
| commit | 2ba326becc1c9546cf028a8ddb0ff8307c6e4eff (patch) | |
| tree | 67c0b465d7e2638c43acd0e0ef8518d24061bc33 /readers/article.rkt | |
| parent | a58d7a372d5dd306455495ca46a1d126633dd581 (diff) | |
Add newlines for readablity.
Diffstat (limited to 'readers/article.rkt')
| -rw-r--r-- | readers/article.rkt | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/readers/article.rkt b/readers/article.rkt index 8f06b95..687adcc 100644 --- a/readers/article.rkt +++ b/readers/article.rkt @@ -12,8 +12,10 @@ (call/cc (lambda ([k : (-> String Nothing)]) (unless (hash? jse) (k "must be a hash")) + (define id (hash-ref jse 'id (thunk (k "id not found")))) (unless (string? id) (k "id must be a string")) + (define timestamp (let ([timestamp (hash-ref jse 'timestamp (thunk (k "timestamp not found")))]) (unless (string? timestamp) (k "timestamp must be a string")) |