mirror of
https://github.com/byteverse/colonnade.git
synced 2024-09-11 06:45:41 +03:00
Fix things
This commit is contained in:
parent
9a550e5992
commit
4a709ec3d2
@ -43,7 +43,7 @@ runRowMonadicWith :: (Monad m)
|
||||
-> a
|
||||
-> m b
|
||||
runRowMonadicWith bempty bappend (Encoding v) g a =
|
||||
foldrM (\e br -> do
|
||||
foldlM (\br e -> do
|
||||
bl <- g (oneEncodingEncode e a)
|
||||
return (bappend bl br)
|
||||
) bempty v
|
||||
|
@ -53,10 +53,11 @@ basic tableAttrs as encoding = do
|
||||
-- | Table with cells that can create expanded content
|
||||
-- between the rows.
|
||||
expandable :: (MonadWidget t m, Foldable f)
|
||||
=> String
|
||||
-> String
|
||||
-> f a
|
||||
=> String -- ^ Table class
|
||||
-> String -- ^ Class of expanded table rows
|
||||
-> f a -- ^ Values
|
||||
-> Encoding Headed (Cell m (Event t (Maybe (m ())))) a
|
||||
-- ^ Encoding into cells with events that can fire to create additional content under the row
|
||||
-> m ()
|
||||
expandable tableClass tdExtraClass as encoding@(Encoding v) = do
|
||||
let vlen = Vector.length v
|
||||
|
Loading…
Reference in New Issue
Block a user