haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-04-26 18:07:45 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix things

Browse Source
This commit is contained in:
Andrew Martin 2016-09-08 09:58:09 -04:00
parent 9a550e5992
commit 4a709ec3d2
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
colonnade/src/Colonnade/Encoding.hs
View File

@ -43,7 +43,7 @@ runRowMonadicWith :: (Monad m)
-> a -> a
-> m b -> m b
runRowMonadicWith bempty bappend (Encoding v) g a = runRowMonadicWith bempty bappend (Encoding v) g a =
foldrM (\e br -> do foldlM (\br e -> do
bl <- g (oneEncodingEncode e a) bl <- g (oneEncodingEncode e a)
return (bappend bl br) return (bappend bl br)
) bempty v ) bempty v

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

@ -53,10 +53,11 @@ basic tableAttrs as encoding = do
-- | Table with cells that can create expanded content -- | Table with cells that can create expanded content
-- between the rows. -- between the rows.
expandable :: (MonadWidget t m, Foldable f) expandable :: (MonadWidget t m, Foldable f)
=> String => String -- ^ Table class
-> String -> String -- ^ Class of expanded table rows
-> f a -> f a -- ^ Values
-> Encoding Headed (Cell m (Event t (Maybe (m ())))) a -> 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 () -> m ()
expandable tableClass tdExtraClass as encoding@(Encoding v) = do expandable tableClass tdExtraClass as encoding@(Encoding v) = do
let vlen = Vector.length v let vlen = Vector.length v