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:
ab7bf8d
)
Fix indents
author
Siraaj Khandkar
<siraaj@khandkar.net>
Mon, 29 Nov 2021 15:10:19 +0000
(10:10 -0500)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Mon, 29 Nov 2021 15:10:19 +0000
(10:10 -0500)
tt.rkt
patch
|
blob
|
blame
|
history
diff --git
a/tt.rkt
b/tt.rkt
index
fcaf8ce
..
a613b58
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-28,16
+28,16
@@
(cons 'error β))))
(struct User
(cons 'error β))))
(struct User
- ([uri : Url]
- [nick : (Option String)]))
+
([uri : Url]
+
[nick : (Option String)]))
(struct User-Agent
(struct User-Agent
- ([user : User]
- [prog : Prog]))
+
([user : User]
+
[prog : Prog]))
(struct Prog
(struct Prog
- ([name : String]
- [version : String]))
+
([name : String]
+
[version : String]))
(struct Msg
([ts-epoch : Integer]
(struct Msg
([ts-epoch : Integer]
@@
-72,8
+72,8
@@
(match-define (User u0 n) user)
(define u (url->string u0))
(if n
(match-define (User u0 n) user)
(define u (url->string u0))
(if n
- (format "+~a; @~a" u n)
- (format "+~a" u )))
+
(format "+~a; @~a" u n)
+
(format "+~a" u )))
(: user-agent->str (-> User-Agent String))
(define (user-agent->str ua)
(: user-agent->str (-> User-Agent String))
(define (user-agent->str ua)
This page took
0.030878 seconds
and
4
git commands to generate.