We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 14c5751 commit 71df200Copy full SHA for 71df200
test/test-integration.janet
@@ -2,14 +2,11 @@
2
3
(use judge)
4
5
-(defn line-ending []
6
- (case (os/which)
7
- :windows "\r\n\r\n"
8
- "\n\n"))
+(def line-ending "\r\n\r\n")
9
10
(defn write-output [handle response]
11
# Write headers
12
- (:write handle (string "Content-Length: " (length response) (line-ending)))
+ (:write handle (string "Content-Length: " (length response) line-ending))
13
14
# Write response
15
(:write handle (string response (if (string/has-suffix? "\n" response) "" "\n")))
0 commit comments