From 7919b2c5ac638ee4275aedba1f6356eca638595a Mon Sep 17 00:00:00 2001
From: tomjaguarpaw <tom-github.com@jaguarpaw.co.uk>
Date: Fri, 24 Feb 2017 19:29:38 +0000
Subject: [PATCH] Remove duplication

---
 colonnade/src/Colonnade.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/colonnade/src/Colonnade.hs b/colonnade/src/Colonnade.hs
index 4a3bd13..a555ad8 100644
--- a/colonnade/src/Colonnade.hs
+++ b/colonnade/src/Colonnade.hs
@@ -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.