Mercurial > urweb

diff src/compiler.sml @ 457:360cbc202756

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Request header reading works
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 09:47:16 -0500
parents 9163f8014f9b
children 04b91c33ef54
line wrap: on
line diff
--- a/src/compiler.sml	Thu Nov 06 09:21:34 2008 -0500
+++ b/src/compiler.sml	Thu Nov 06 09:47:16 2008 -0500
@@ -552,7 +552,7 @@
 
             val (cname, oname, cleanup) =
                 if #debug job then
-                    ("/tmp/urweb.c", "/tmp/urweb.o", fn () => ())
+                    ("/tmp/webapp.c", "/tmp/webapp.o", fn () => ())
                 else
                     let
                         val dir = OS.FileSys.tmpName ()
@@ -560,8 +560,8 @@
                                      OS.FileSys.remove dir
                                  else
                                      ()
-                        val cname = OS.Path.joinDirFile {dir = dir, file = "urweb.c"}
-                        val oname = OS.Path.joinDirFile {dir = dir, file = "urweb.o"}
+                        val cname = OS.Path.joinDirFile {dir = dir, file = "webapp.c"}
+                        val oname = OS.Path.joinDirFile {dir = dir, file = "webapp.o"}
                     in
                         OS.FileSys.mkDir dir;
                         (cname, oname,