acceptWidget  step (Proposal d) Disclosed = el "li" $ do
  elAttr "span" [("class","question")] $ text "choose a place"
  divClass "placepick" $ do
      let rs = filter (valid $ d ^. zone) [minBound .. maxBound] 
      -- pd :: m (DS (Maybe (Place (Opponent u) a)))
      pd <- divClass "radiochecks" $ radioChecks $ rs

      (y,n) <- yesno $ maybe False (const True) <$> pd
      
      return $ merge [
        RightG :=> fmapMaybe id ((fmap step <$>  pd) `tagPromptlyDyn` y)
        , LeftG :=> Iconified <$ n --
        ]
acceptWidget  step (Proposal d) Disclosed = el "li" $ do
  elAttr "span" [("class","question")] $ text "choose a place"
  divClass "placepick" $ do
      let rs = filter (valid $ d ^. zone) [minBound .. maxBound] 
      -- pd :: m (DS (Maybe (Place (Opponent u) a)))
      pd <- divClass "radiochecks" $ radioChecks $ rs

      (y,n) <- yesno $ maybe False (const True) <$> pd
      
      return $ merge [
        RightG :=> fmapMaybe id ((fmap step <$>  pd) `tagPromptlyDyn` y)
        , LeftG :=> Iconified <$ n --
        ]
acceptWidget  step (Proposal d) Disclosed = el "li" $ do
  elAttr "span" [("class","question")] $ text "choose a place"
  divClass "placepick" $ do
      let rs = filter (valid $ d ^. zone) [minBound .. maxBound] 
      -- pd :: m (DS (Maybe (Place (Opponent u) a)))
      pd <- divClass "radiochecks" $ radioChecks $ rs

      (y,n) <- yesno $ maybe False (const True) <$> pd
      
      return $ merge [
        RightG :=> fmapMaybe id ((fmap step <$>  pd) `tagPromptlyDyn` y)
        , LeftG :=> Iconified <$ n --
        ]