From 5941c0d27be7b680299a5f84df29b1771d77691c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Jul 2015 22:35:29 -0400
Subject: [PATCH] Rename (haunt build html) to (haunt html).

* haunt/build/html.scm: Delete it.
* haunt/html.scm: New file.
* Makefile.am (SOURCES): Remove old file.  Add new file.
* haunt/builder/atom.scm: Use new module.
* haunt/builder/blog.scm: Likewise.
* haunt/ui/serve.scm: Likewise.
---
 Makefile.am                | 2 +-
 haunt/builder/atom.scm     | 2 +-
 haunt/builder/blog.scm     | 2 +-
 haunt/{build => }/html.scm | 2 +-
 haunt/ui/serve.scm         | 3 +++
 5 files changed, 7 insertions(+), 4 deletions(-)
 rename haunt/{build => }/html.scm (99%)

diff --git a/Makefile.am b/Makefile.am
index 8a06dd3..e44e91a 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -47,7 +47,7 @@ SOURCES =					\
   haunt/page.scm				\
   haunt/asset.scm				\
   haunt/site.scm				\
-  haunt/build/html.scm				\
+  haunt/html.scm				\
   haunt/builder/atom.scm			\
   haunt/builder/blog.scm			\
   haunt/ui.scm					\
diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm
index 1cfe1e3..12b0df5 100644
--- a/haunt/builder/atom.scm
+++ b/haunt/builder/atom.scm
@@ -30,7 +30,7 @@
   #:use-module (haunt post)
   #:use-module (haunt page)
   #:use-module (haunt utils)
-  #:use-module (haunt build html)
+  #:use-module (haunt html)
   #:export (atom-feed
             atom-feeds-by-tag))
 
diff --git a/haunt/builder/blog.scm b/haunt/builder/blog.scm
index 0a65b50..f738a09 100644
--- a/haunt/builder/blog.scm
+++ b/haunt/builder/blog.scm
@@ -29,7 +29,7 @@
   #:use-module (haunt post)
   #:use-module (haunt page)
   #:use-module (haunt utils)
-  #:use-module (haunt build html)
+  #:use-module (haunt html)
   #:export (theme
             theme?
             theme-name
diff --git a/haunt/build/html.scm b/haunt/html.scm
similarity index 99%
rename from haunt/build/html.scm
rename to haunt/html.scm
index e8bb49b..0984194 100644
--- a/haunt/build/html.scm
+++ b/haunt/html.scm
@@ -22,7 +22,7 @@
 ;;
 ;;; Code:
 
-(define-module (haunt build html)
+(define-module (haunt html)
   #:use-module (sxml simple)
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
diff --git a/haunt/ui/serve.scm b/haunt/ui/serve.scm
index 09bcfcc..78bc811 100644
--- a/haunt/ui/serve.scm
+++ b/haunt/ui/serve.scm
@@ -33,6 +33,9 @@
   #:use-module (haunt serve web-server)
   #:export (haunt-serve))
 
+(use-modules (system repl server))
+(spawn-server (make-tcp-server-socket))
+
 (define (show-help)
   (format #t "Usage: haunt serve [OPTION]
 Start an HTTP server for the current site.~%")