mirror of
https://github.com/byteverse/colonnade.git
synced 2024-10-26 08:03:25 +03:00
commit
e0a0f66a43
@ -216,12 +216,7 @@ replaceWhen ::
|
||||
-> (a -> Bool) -- ^ Row predicate
|
||||
-> Colonnade f a c -- ^ Original 'Colonnade'
|
||||
-> Colonnade f a c
|
||||
replaceWhen newContent p (E.Colonnade v) = E.Colonnade
|
||||
( Vector.map
|
||||
(\(E.OneColonnade h encode) -> E.OneColonnade h $ \a ->
|
||||
if p a then newContent else encode a
|
||||
) v
|
||||
)
|
||||
replaceWhen = modifyWhen . const
|
||||
|
||||
-- | Augment a 'Colonnade' with a header spans over all of the
|
||||
-- existing headers. This is best demonstrated by example.
|
||||
|
Loading…
Reference in New Issue
Block a user