From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Mon, 29 Nov 2021 15:10:19 +0000 (-0500)
Subject: Fix indents
X-Git-Tag: 0.28.0~3
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=3dc554daf926f2c49381861b6667746e53c51d78;p=tt.git

Fix indents
---

diff --git a/tt.rkt b/tt.rkt
index fcaf8ce..a613b58 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -28,16 +28,16 @@
               (cons 'error β))))
 
 (struct User
-  ([uri  : Url]
-   [nick : (Option String)]))
+        ([uri  : Url]
+         [nick : (Option String)]))
 
 (struct User-Agent
-  ([user : User]
-   [prog : Prog]))
+        ([user : User]
+         [prog : Prog]))
 
 (struct Prog
-  ([name    : String]
-   [version : String]))
+        ([name    : String]
+         [version : String]))
 
 (struct Msg
         ([ts-epoch   : Integer]
@@ -72,8 +72,8 @@
   (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)