home
/
code
/
tt.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3c9c826
)
Use lang typed/racket/no-check
author
Siraaj Khandkar
<siraaj@khandkar.net>
Sun, 21 Mar 2021 16:30:51 +0000
(12:30 -0400)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Sun, 21 Mar 2021 16:30:51 +0000
(12:30 -0400)
tt.rkt
patch
|
blob
|
blame
|
history
diff --git
a/tt.rkt
b/tt.rkt
index
03db6e6
..
2cc2131
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-1,4
+1,4
@@
-#lang
racket
+#lang
typed/racket/no-check
(require openssl/sha1)
(require racket/date)
(require openssl/sha1)
(require racket/date)
@@
-13,19
+13,15
@@
(require rackunit))
(struct msg
(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
(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
(define (concurrent-filter-map num_workers f xs)
; TODO preserve order of elements OR communicate that reorder is expected
This page took
0.027035 seconds
and
4
git commands to generate.