Pārlūkot izejas kodu

Merge remote branch 'upstream/master'

Göran Krampe 13 gadi atpakaļ
vecāks
revīzija
55e8f10393
1 mainītis faili ar 6 papildinājumiem un 5 dzēšanām
  1. 6 5
      nodejs/trivialserver/TrivialServer.st

+ 6 - 5
nodejs/trivialserver/TrivialServer.st

@@ -28,9 +28,10 @@ process: aRequest
 
 start
         | block obj |
-        block := [:req :res |
-           {'res.writeHead(200, {''Content-Type'': ''text/html''});'}.
-           res end: (self process: req)].
+        block := [:req :res || headers |
+	    headers := Dictionary with: 'content-type' -> 'text/html'.
+	    res writeHead: (Array with: 200 with: headers).
+	    res end: (self process: req)].
 
         (http createServer: block)
                 listen: #(1337 '127.0.0.1').
@@ -41,8 +42,8 @@ start
 !TrivialServer class methodsFor: 'initialization'!
 initialize
         "We require these Node modules."
-
-	{'os = require(''os''), http = require(''http'');'}
+    os := require value: 'os'.
+    http := require value: 'http'.
 !
 
 main