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

Merge pull request #5 from tomjaguarpaw/patch-1

Browse Source 
Remove duplication
This commit is contained in:
Andrew Martin 2017-02-24 17:37:31 -05:00 committed by GitHub
commit e0a0f66a43
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.