diff --git a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
index e3e5188..0a88c3f 100644
--- a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
+++ b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
@@ -238,20 +238,24 @@ capped tableAttrs headAttrs bodyAttrs trAttrs fascia cornice collection =
b <- body bodyAttrs trAttrs (E.discard cornice) collection
return (h `mappend` b)
+-- | This is useful when you want to be able to toggle the visibility
+-- of columns after the table has been built.
cappedResizable ::
(DomBuilder t m, PostBuild t m, MonadHold t m, Foldable f, Monoid e)
=> Map Text Text -- ^ @\
@ tag attributes
-> Map Text Text -- ^ @\@ tag attributes
-> Map Text Text -- ^ @\@ tag attributes
+ -> m () -- ^ Content beneath @\@. Should either be empty or a @\@.
-> (a -> Map Text Text) -- ^ @\@ tag attributes
-> Fascia p (Map Text Text) -- ^ Attributes for @\
@ elements in the @\@
-> Cornice (Resizable t Headed) p a (Cell t m e) -- ^ Data encoding strategy
-> f a -- ^ Collection of data
-> m e
-cappedResizable tableAttrs headAttrs bodyAttrs trAttrs fascia cornice collection = do
+cappedResizable tableAttrs headAttrs bodyAttrs beneathBody trAttrs fascia cornice collection = do
elAttr "table" tableAttrs $ do
h <- encodeCorniceResizableHead headAttrs fascia (dynamicAnnotate cornice)
b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection
+ beneathBody
return (h `mappend` b)
dynamicAnnotate :: Reflex t