working-tag.hs

tagsMapDyn <- elClass "p" "tagging" $ mdo
            let evMapTags = Map.fromList . (fmap (\t -> (t,t))) . (fmap tagNToText) . V.toList <$> evPkgTags
            result <- foldDyn appEndo Map.empty $ fold
              [ Endo . const <$> evMapTags
              , (\nTag -> Endo $ Map.insert nTag nTag) <$> addTag0
              , (foldMap (Endo . Map.delete) . Map.keys) <$> deleteTag0
              ]
            deleteTag0 :: Event t (Map.Map T.Text T.Text) <- listViewWithKey result $ \tId _ -> do
              el "li" $ do
                el "span" $ text tId
                delEv <- rmTagButton_ tId pn
                pure $ tagNToText <$> delEv

            addTag0 <- elClass "form" "form" $ do
              el "p" $ text "Tag : "
              tagName <- textInput iCfg
              tagButton <- button_ "Add Tag"
              let tVal = _textInput_value tagName
                  evAdd = (tagPromptlyDyn tVal tagButton)
              addTagN <- holdDyn "" evAdd
              addResult <- fmapMaybe reqSuccess <$> putV2PackageTags ((Right . TagN) <$> addTagN) (constDyn $ Right pn) (() <$ evAdd)
              pure $ tagPromptlyDyn tVal addResult
            pure ()