haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-09-04 11:23:48 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

make cappedResizable return the result of the tfoot

Browse Source
This commit is contained in:
Andrew Martin 2017-09-17 11:30:02 -04:00
parent 3529a72950
commit 13b0f64b69
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
View File

@ -249,19 +249,19 @@ cappedResizable ::
=> Map Text Text -- ^ @\<table\>@ tag attributes => Map Text Text -- ^ @\<table\>@ tag attributes
-> Map Text Text -- ^ @\<thead\>@ tag attributes -> Map Text Text -- ^ @\<thead\>@ tag attributes
-> Map Text Text -- ^ @\<tbody\>@ tag attributes -> Map Text Text -- ^ @\<tbody\>@ tag attributes
-> m () -- ^ Content beneath @\<tbody\>@. Should either be empty or a @\<tfoot\>@. -> m c -- ^ Content beneath @\<tbody\>@. Should either be empty or a @\<tfoot\>@.
-> (a -> Map Text Text) -- ^ @\<tr\>@ tag attributes -> (a -> Map Text Text) -- ^ @\<tr\>@ tag attributes
-> Fascia p (Map Text Text) -- ^ Attributes for @\<tr\>@ elements in the @\<thead\>@ -> Fascia p (Map Text Text) -- ^ Attributes for @\<tr\>@ elements in the @\<thead\>@
-> Cornice (Resizable t Headed) p a (Cell t m e) -- ^ Data encoding strategy -> Cornice (Resizable t Headed) p a (Cell t m e) -- ^ Data encoding strategy
-> f a -- ^ Collection of data -> f a -- ^ Collection of data
-> m (e, Dynamic t Int) -> m (e, c, Dynamic t Int)
cappedResizable tableAttrs headAttrs bodyAttrs beneathBody trAttrs fascia cornice collection = do cappedResizable tableAttrs headAttrs bodyAttrs beneathBody trAttrs fascia cornice collection = do
elAttr "table" tableAttrs $ do elAttr "table" tableAttrs $ do
let annCornice = dynamicAnnotate cornice let annCornice = dynamicAnnotate cornice
h <- encodeCorniceResizableHead headAttrs fascia annCornice h <- encodeCorniceResizableHead headAttrs fascia annCornice
b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection b <- bodyResizable bodyAttrs trAttrs (E.discard cornice) collection
beneathBody c <- beneathBody
return (h `mappend` b, E.size annCornice) return (h `mappend` b, c, E.size annCornice)
dynamicAnnotate :: Reflex t dynamicAnnotate :: Reflex t
=> Cornice (Resizable t Headed) p a c => Cornice (Resizable t Headed) p a c