Dropdown Map becomes empty only when deployed

[augyg]

let mappy = Map.fromList $ fmap (\x -> (x,x)) $ [ "As soon as possible" , "1-2 months" , "3-6 months" , "6+ months" ] dropdown "As soon as possible" (constDyn mappy) def

For this code, it works completely fine when using localhost and when deployed, only gives all options the first time you visit the page however any other time including refreshing the page, the options disappear

Localhost:

Deployed: https://aceinterviewpreparation.com/main/onboard

When the page is refreshed, the options momentarily show up. I'm using a constDyn for each dropdown

reflex-platform branch "release/0.9.2.0"

[augyg]

here's the code I wrote to avoid this

`-- | TODO: take an element config for the options elements as well
-- | TODO: clean up and upstream to reflex-dom-contrib
dropdown'
:: ( MonadFix m
, DomBuilder t m
, Ord a
)
=> Map.Map a T.Text -- TODO: use NonEmpty
-> SelectElementConfig er t (DomBuilderSpace m)
-> m (Dynamic t a)
dropdown' options cfg' = mdo
let class' = "w-full px-4 py-3 border border-gray-300 rounded-lg focus:outline-none focus:border-[#00B9DA] font-[Sarabun] text-lg mb-5 bg-white"
let safeInitial = (snd . head $ Map.toList options)
-- if options == mempty
-- then ""
-- else
-- if _selectElementConfig_initialValue cfg == ""
-- then _selectElementConfig_initialValue cfg
-- else (snd . head $ Map.toList options)

let cfg = cfg'
& selectElementConfig_initialValue .~ safeInitial
& selectElementConfig_setValue .~ optionsEvent
& selectElementConfig_elementConfig . elementConfig_initialAttributes .~ ("class" =: class')
(selectEl, optionsEvent) <- selectElement cfg $ do
optionsEv <- mapM makeOpt $ fmap snd $ Map.toList options
pure $ leftmost optionsEv
let options' = Map.fromList $ fmap flipTup $ Map.toList options
pure $ fmap (\v -> fromJust $ Map.lookup v options') $ _selectElement_value selectEl
where
flipTup (a,b) = (b,a)
makeOpt optText = do
(e, _) <- elAttr' "option" ("value" =: optText) $ text optText
pure $ optText <$ domEvent Click e

dropdownWithDefault
:: ( MonadFix m
, DomBuilder t m
, Ord a
)
=> Map.Map a T.Text
-> T.Text
-> SelectElementConfig er t (DomBuilderSpace m)
-> m (Dynamic t a)
dropdownWithDefault options start cfg' = mdo
let class' = "w-full px-4 py-3 border border-gray-300 rounded-lg focus:outline-none focus:border-[#00B9DA] font-[Sarabun] text-lg mb-5 bg-white"
let safeInitial = start -- (snd . head $ Map.toList options)
let cfg = cfg'
& selectElementConfig_initialValue .~ safeInitial
& selectElementConfig_setValue .~ optionsEvent
& selectElementConfig_elementConfig . elementConfig_initialAttributes .~ ("class" =: class')
(selectEl, optionsEvent) <- selectElement cfg $ do
optionsEv <- mapM makeOpt $ fmap snd $ Map.toList options
pure $ leftmost optionsEv
let options' = Map.fromList $ fmap flipTup $ Map.toList options
pure $ fmap (\v -> fromJust $ Map.lookup v options') $ _selectElement_value selectEl
where
flipTup (a,b) = (b,a)
makeOpt optText = do
(e, _) <- elAttr' "option" ("value" =: optText) $ text optText
pure $ optText <$ domEvent Click e
`