@@ -15,9 +15,6 @@ import Reflex.Dom
1515api :: Proxy API
1616api = Proxy
1717
18−url :: BaseUrl
19−url = BaseUrl Http "localhost" 8000 ""
20−
2118main :: IO ()
2219main = mainWidget run
2320
@@ -25,9 +22,14 @@ main = mainWidget run
2522run :: forall t m. MonadWidget t m => m ()
2623run = do
2724
25+ url <- baseUrlWidget
26+ el "br" (return ())
27+ dynText =<< mapDyn showBaseUrl url
28+ el "br" (return ())
29+
2830 -- Name the computed API client functions
2931 let (getUnit :<|> getInt :<|> sayhi :<|> dbl :<|> doRaw) =
30− client api (Proxy :: Proxy m) (constDyn url)
32+ client api (Proxy :: Proxy m) url
3133
3234 elClass "div" "demo-group" $ do
3335 unitBtn <- button "Get unit"