crypto-based sha1 and sha256

syndicate-ssh/crypto.rkt

@@ -2,8 +2,15 @@
 ;;; SPDX-License-Identifier: LGPL-3.0-or-later
 ;;; SPDX-FileCopyrightText: Copyright © 2011-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
 
-(provide (all-from-out crypto))
+(provide (all-from-out crypto)
+         (all-defined-out))
 
 (require crypto)
 (require crypto/all)
 (use-all-factories!)
+
+(define (sha1 bs)
+  (digest 'sha1 bs))
+
+(define (sha256 bs)
+  (digest 'sha256 bs))

syndicate-ssh/ssh-session.rkt

@@ -4,7 +4,6 @@
 
 (require bitsyntax)
 (require syndicate/drivers/timer)
-(require (only-in file/sha1 sha1))
 
 (require "crypto.rkt")
 (require "oakley-groups.rkt")