 
 (defn change-current-track-position [room position callback]
   (letfn [(change-pos []
-            (let [writer (transit/writer :json)]
+            (let [writer (transit/writer :json-verbose)]
               (.set redis-client (redis-room-prefix room "track-position")
                                  (transit/write writer {:position position
                                                         :start-time (.now js/Date)})

  ((.scriptWrap redis-lua "getAllMusicInfo") 0 room-id
    (fn [err music-info-reply]
      (let [info (js->clj music-info-reply)
            reader (transit/reader :json)
            info-to-send (map #(transit/read reader %1) info)]
        (if (empty? info-to-send)
          (callback nil nil)

                            (fn []
                              (.get redis-client (str "file-hash:" file-hash)
                                (fn [err music-info-reply]
                                  (let [reader (transit/reader :json-verbose)
                                        music-info-json (transit/read reader music-info-reply)
                                        music-info (js->clj music-info-json)]
                                    (callback music-info)))))))))))))))))))
