byteverse/colonnade
1
1
Fork 0
mirror of https://github.com/byteverse/colonnade.git synced 2024-09-11 06:45:41 +03:00
Code Issues 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
-> 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.