fix typo to make it work for jvm

src/tenlet/server.cljc

@@ -1,7 +1,7 @@
 (ns tenlet.server
   (:require
     [tenlet.decode :as decode])
-  #?(:clj (import 
+  #?(:clj (:import
             [java.net ServerSocket Socket SocketException]
             [java.io InputStreamReader OutputStreamWriter BufferedWriter]
             [java.nio.charset Charset])))
@@ -36,7 +36,7 @@
   ITelnet
   (connect [o c]
     (swap! opts update :clients conj c))
-  (write [o s] 
+  (write [o s]
     (dorun (map #(write % s) (:clients @opts))))
   (close [o]
     (dorun (map close (:clients @opts)))
@@ -45,25 +45,25 @@
 (deftype Client [socket ow opts]
   ITelnet
   (connect [o] (call @opts :connect o))
-#?(:clj 
+#?(:clj
   (write [o s]
-    (try 
-      (.write ow (str s)) 
+    (try
+      (.write ow (str s))
       (.flush ow)
       (catch Exception e)))
   :cljs
-  (write [o s] 
-    (try 
+  (write [o s]
+    (try
       (.write socket (str s) "latin1")
       (catch :default e))))
-  (input [o c] 
+  (input [o c]
     (debug [c (int c)])
     (let [code (decode/op (or (::code @opts) {}) c)
           out (:out code)
           -line (:line code)
           resize (:resize code)]
       (debug :code code)
-      (when resize 
+      (when resize
         (call @opts :resize o resize)
         (swap! opts assoc ::code (dissoc code :resize)))
       (when out
@@ -75,33 +75,33 @@
       (if-not (or out -line resize)
         (swap! opts assoc ::code code))))
   (line [o s] (call @opts :line o s))
-  (close [o] 
-    (swap! (.-opts (::server @opts)) update :clients 
+  (close [o]
+    (swap! (.-opts (::server @opts)) update :clients
       #(-> % set (disj o) seq))
-    #?(:clj  
-        (try 
+    #?(:clj
+        (try
           (.close socket)
           (call @opts :close o)
           (catch Exception e))
-       :cljs 
-        (try 
+       :cljs
+        (try
           (.destroy socket)
           (catch :default e)))))
 
 (defn- new-connection [S c opts]
- #?(:clj 
-    (on-thread 
-      (fn [] 
-        (let [i (. c (getInputStream)) 
+ #?(:clj
+    (on-thread
+      (fn []
+        (let [i (. c (getInputStream))
               o (. c (getOutputStream))
               ir (new InputStreamReader i iso-latin-1)
               ow (new OutputStreamWriter o iso-latin-1)
               C (Client. c ow (atom opts))]
           (connect S C)
           (connect C)
-          ((fn [] 
+          ((fn []
             (when-not (.isClosed c)
-              (try 
+              (try
                 (input C (char (.read ir)))
                 (catch java.lang.IllegalArgumentException e
                   (close C))
@@ -113,20 +113,20 @@
       (connect S C)
       (connect C)
       (.on c "data" (fn [d] (dorun (map #(input C %) (str d)))))
-      (.on c "close" 
-        (fn [e] 
+      (.on c "close"
+        (fn [e]
           (close C)
           (call @(.-opts C) :close C))))))
 
 (defn create-server [port opts]
- #?(:clj 
+ #?(:clj
     (let [s (new ServerSocket port)
           S (Server. s (atom {}))
           opts (assoc opts ::server S)]
-      (on-thread 
-        (fn [] 
+      (on-thread
+        (fn []
           (when-not (.isClosed s)
-            (try 
+            (try
               (let [c (.accept s)]
                 (new-connection S c opts))
               (catch SocketException e
@@ -136,8 +136,8 @@
     (let [s ((.-createServer net))
           S (Server. s (atom {}))
           opts (assoc opts ::server S)]
-      (.listen s port) 
-      (.on s "connection" (fn [c] 
+      (.listen s port)
+      (.on s "connection" (fn [c]
         (new-connection S c opts)))
-      (.on s "close" 
-        (fn [e] (call opts :shutdown S))) S)))
+      (.on s "close"
+        (fn [e] (call opts :shutdown S))) S)))