        tupped (Just n, Just g) = Just (n, g)
        tupped _ = Nothing

    form :: MonadWidget t m => (NoteResponse, [GroupShallow]) -> m (Event t JunksState)
    form (n, gs) = M.elTitleCardContainer "Edit Note" $ do
      let mGroup = find (\g -> g ^. id == n ^. groupId) gs
      evPb <- delay 0.1 =<< getPostBuild
      rec
        _ <- el "div" $ flashWidgetEv flashConfig (whenError evDec)
        el "h5" $ text $ maybe "!!! Invalid Group ID !!!" (untag . L.view name) mGroup