File tree Expand file tree Collapse file tree 3 files changed +1
-19
lines changed
compiled_starters/clojure/src/http_server Expand file tree Collapse file tree 3 files changed +1
-19
lines changed Original file line number Diff line number Diff line change 7
7
8
8
(def port 4221 )
9
9
10
- (alter-var-root #'*out* (constantly *err*))
11
-
12
10
(defn serve []
13
11
(let [server-sock (ServerSocket. port)]
14
12
(.setReuseAddress server-sock true )
20
18
; ; You can use print statements as follows for debugging, they'll be visible when running tests.
21
19
(println " Logs from your program will appear here!" )
22
20
23
-
24
- (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true )))
25
-
26
-
27
21
; ; Uncomment this block to pass the first stage
28
22
; ;(serve)
29
23
Original file line number Diff line number Diff line change 7
7
8
8
(def port 4221 )
9
9
10
- (alter-var-root #'*out* (constantly *err*))
11
-
12
10
(defn serve []
13
11
(let [server-sock (ServerSocket. port)]
14
12
(.setReuseAddress server-sock true )
17
15
(println " accepted new connection" ))))
18
16
19
17
(defn -main [& args]
20
-
21
- (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true )))
22
-
23
-
24
18
(serve )
25
19
26
20
)
Original file line number Diff line number Diff line change 1
- @@ -1,30 +1,26 @@
1
+ @@ -1,24 +1,20 @@
2
2
(ns http-server.core
3
3
(:require
4
4
[clojure.java.io :as io])
8
8
9
9
(def port 4221)
10
10
11
- (alter-var-root #'*out* (constantly *err*))
12
-
13
11
(defn serve []
14
12
(let [server-sock (ServerSocket. port)]
15
13
(.setReuseAddress server-sock true)
21
19
- ;; You can use print statements as follows for debugging, they'll be visible when running tests.
22
20
- (println "Logs from your program will appear here!")
23
21
-
24
-
25
- (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true)))
26
-
27
-
28
22
- ;; Uncomment this block to pass the first stage
29
23
- ;;(serve)
30
24
+ (serve)
You can’t perform that action at this time.
0 commit comments