From c275019953690a944772c98a8cdf44b2b090f1f8 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 17 Aug 2011 20:51:44 -0400
Subject: [PATCH] Add a TODO re rekeying checks

---
 ssh-transport.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ssh-transport.rkt b/ssh-transport.rkt
index 5b8f254..11bd8aa 100644
--- a/ssh-transport.rkt
+++ b/ssh-transport.rkt
@@ -707,6 +707,7 @@
       (continue-after-discard in-state out-state)))
 
 (define (check-host-key! host-key)
+  ;; TODO: If we are *re*keying, worth checking here that the key hasn't *changed* either.
   (write `(TODO check-host-key! ,(hex (bit-string->bytes host-key)))) (newline) (flush-output)
   (void))