From a0b41083ab3090efdc8c94cf6b7bf65312961d78 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 2 Aug 2016 12:13:52 -0400 Subject: [PATCH] Apparently this got swapped again or something? --- src/Diffing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Diffing.hs b/src/Diffing.hs index 306ebce64..0c3d1fa70 100644 --- a/src/Diffing.hs +++ b/src/Diffing.hs @@ -50,7 +50,7 @@ diffFiles parser renderer sourceBlobs = do (_, _) -> runBothWith (diffTerms construct compareCategoryEq diffCostWithCachedTermCosts) terms - pure $! renderer textDiff sourceBlobs + pure $! renderer sourceBlobs textDiff where construct (info :< syntax) = free (Free ((setCost <$> info <*> sumCost syntax) :< syntax)) sumCost = fmap getSum . foldMap (fmap Sum . getCost)