summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/socket/base64.scm (renamed from base64.scm)2
-rw-r--r--web/socket/server.scm4
-rw-r--r--web/socket/sha-1.scm (renamed from sha-1.scm)2
3 files changed, 4 insertions, 4 deletions
diff --git a/base64.scm b/web/socket/base64.scm
index 5720f18..69d45b7 100644
--- a/base64.scm
+++ b/web/socket/base64.scm
@@ -22,7 +22,7 @@
;; RFC 4648 Base-N Encodings
-(library (base64)
+(library (web socket base64)
(export base64-encode
base64-decode
base64-alphabet
diff --git a/web/socket/server.scm b/web/socket/server.scm
index 85395a3..7b6463e 100644
--- a/web/socket/server.scm
+++ b/web/socket/server.scm
@@ -26,12 +26,12 @@
(define-module (web socket server)
#:use-module (ice-9 match)
#:use-module (rnrs bytevectors)
- #:use-module (base64)
- #:use-module (sha-1)
#:use-module (web request)
#:use-module (web response)
#:use-module (web uri)
+ #:use-module (web socket base64)
#:use-module (web socket frame)
+ #:use-module (web socket sha-1)
#:export (make-server-socket
run-server))
diff --git a/sha-1.scm b/web/socket/sha-1.scm
index 8a49e88..95a13aa 100644
--- a/sha-1.scm
+++ b/web/socket/sha-1.scm
@@ -27,7 +27,7 @@
;; TODO: give an error if more than 2^64 bits are processed?
;; TODO: Optimize. Should be simple enough with the help of a profiler.
-(library (sha-1)
+(library (web socket sha-1)
(export make-sha-1 sha-1-update! sha-1-finish! sha-1-clear!
sha-1 sha-1-copy sha-1-finish
sha-1-transform! ;for interested parties only