Pick up services on port 9000, #76.

GlideAngle · Nov 11, 2018 · ddc5260 · ddc5260
1 parent 7f75289
commit ddc5260
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/app-view/comp-view/FlareTiming/Task.hs b/app-view/comp-view/FlareTiming/Task.hs
@@ -95,7 +95,7 @@ tasks = do
 getTasks :: MonadWidget t m => () -> m ()
 getTasks () = do
     pb :: Event t () <- getPostBuild
-    let defReq = "http://localhost:3000/tasks"
+    let defReq = "http://localhost:9000/tasks"
     let req md = XhrRequest "GET" (maybe defReq id md) def
     rsp <- performRequestAsync $ fmap req $ leftmost [ Nothing <$ pb ]