From 863d76769a7e90f00f5b003a5bcfe8758054cf27 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 7 Aug 2014 17:32:18 -0400
Subject: Allow connections from any computer on the network.

* guix-web: use INADDR_ANY for http server addr.
---
 guix-web | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix-web b/guix-web
index 24e7c6e..4ef25a4 100755
--- a/guix-web
+++ b/guix-web
@@ -255,7 +255,10 @@
             (tbody ,@(map weblabel javascripts))))))
 
 (spawn-server (make-tcp-server-socket #:port 37146))
-(run-server (lambda args (apply handler args)))
+(run-server (lambda args (apply handler args))
+            'http
+            `(#:addr ,INADDR_ANY
+              #:port 8080))
 
 ;;; Local Variables:
 ;;; mode: scheme
-- 
cgit v1.2.3