@@ -80,9 +80,9 @@ baseUrlWidget = elClass "div" "base-url" $ do
8080 prt <- textInput def { _textInputConfig_attributes = constDyn $ "placeholder" =: "80"}
8181 port :: Dynamic t Int <- holdDyn 80 (fmapMaybe readMaybe $ updated (value prt))
8282 path <- textInput def { _textInputConfig_attributes = constDyn $ "placeholder" =: "a/b" }
83− BaseFullUrl `mapDyn` value schm `apDyn` value srv `apDyn` port `apDyn` value path
83+ BaseFullUrl `mapDyn` value schm `myApDyn` value srv `myApDyn` port `myApDyn` value path
8484
85−apDyn :: MonadWidget t m => m (Dynamic t (a -> b)) -> Dynamic t a -> m (Dynamic t b)
86−apDyn f' a = do
85+myApDyn :: MonadWidget t m => m (Dynamic t (a -> b)) -> Dynamic t a -> m (Dynamic t b)
86+myApDyn f' a = do
8787 f <- f'
8888 combineDyn ($) f a