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

Remove duplication

Browse Source
This commit is contained in:
tomjaguarpaw 2017-02-24 19:29:38 +00:00 committed by GitHub
parent 7aa60cf7d1
commit 7919b2c5ac
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
colonnade/src/Colonnade.hs
View File

@ -216,12 +216,7 @@ replaceWhen ::
-> (a -> Bool) -- ^ Row predicate -> (a -> Bool) -- ^ Row predicate
-> Colonnade f a c -- ^ Original 'Colonnade' -> Colonnade f a c -- ^ Original 'Colonnade'
-> Colonnade f a c -> Colonnade f a c
replaceWhen newContent p (E.Colonnade v) = E.Colonnade replaceWhen = modifyWhen . const
( Vector.map
(\(E.OneColonnade h encode) -> E.OneColonnade h $ \a ->
if p a then newContent else encode a
) v
)
-- | Augment a 'Colonnade' with a header spans over all of the -- | Augment a 'Colonnade' with a header spans over all of the
-- existing headers. This is best demonstrated by example. -- existing headers. This is best demonstrated by example.