                     (case (str action)
                       
                       ;; get the entire database
+                      
                       "get"
                       (possibledb-get-db! db
                                           (fn [db]
                                             (let [conn @db
                                                   
                                                   ;; remove type for reading
+                                                  
                                                   conn (zipmap (keys conn) (vals conn))
                                                   
                                                   ;; remove children type
+                                                  
                                                   vs (mapv (fn [x]
                                                              (if-not (set? x)
                                                                x

            (println "Creating RethinkDB connection")
            
            ;; create connection for rethinkdb
            (doto r
              (.connect (rethinkdb-config)
                        (fn [err conn]

            (let [[socket data] (-> c <! :incoming)
                  
                  ;; needed to be evaluated so must remove parens
                  
                  safe (-> data
                           (.toString "utf8")
                           (s/replace #"\(" "")
