Dropdown Map becomes empty only when deployed

[augyg]

Dropdown Map becomes empty only when deployed

[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
`