From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Sun, 21 Mar 2021 16:30:51 +0000 (-0400)
Subject: Use lang typed/racket/no-check
X-Git-Tag: 0.12.1~2
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=cd5414058446aa68241bec012d70024cd83c3642;p=tt.git

Use lang typed/racket/no-check
---

diff --git a/tt.rkt b/tt.rkt
index 03db6e6..2cc2131 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -1,4 +1,4 @@
-#lang racket
+#lang typed/racket/no-check
 
 (require openssl/sha1)
 (require racket/date)
@@ -13,19 +13,15 @@
   (require rackunit))
 
 (struct msg
-        (
-         ts_epoch   ; Integer
-         ts_rfc3339 ; String
-         nick       ; String
-         uri        ; net/url-structs:url
-         text       ; String
-         ))
+        ([ts_epoch   : Integer]
+         [ts_rfc3339 : String]
+         [nick       : String]
+         [uri        : net/url-structs:url]
+         [text       : String]))
 
 (struct feed
-        (
-         nick ; String
-         uri  ; net/url-structs:url
-         ))
+        ([nick : String]
+         [uri  : net/url-structs:url]))
 
 (define (concurrent-filter-map num_workers f xs)
   ; TODO preserve order of elements OR communicate that reorder is expected