Fix server URL when on list subpage.

AppMini · Feb 16, 2019 · 305ac77 · 305ac77
1 parent 32b376b
commit 305ac77
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cljs/omgnata/core.cljs b/src/cljs/omgnata/core.cljs
@@ -13,7 +13,7 @@
 
 (enable-console-print!)
 
-(def server (atom {:url (str (.replace (-> js/document .-location .-href) ":3449" ":8000") "server.php")
+(def server (atom {:url (str (-> js/document .-location .-href (.split "#") (get 0) (.replace ":3449" ":8000")) "server.php")
  :poller-time 5}))
 
 (secretary/set-config! :prefix "#")