From a24781d2bd6376c838dd6f640e071e3b53362991 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 20 Jan 2017 14:38:39 -0500 Subject: [PATCH] :fire: unionSourceSpans. --- src/SourceSpan.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/SourceSpan.hs b/src/SourceSpan.hs index 71039bb03..12dfe3594 100644 --- a/src/SourceSpan.hs +++ b/src/SourceSpan.hs @@ -58,9 +58,6 @@ displayStartEndPos sp = unionSourceSpansFrom :: Foldable f => SourceSpan -> f SourceSpan -> SourceSpan unionSourceSpansFrom sourceSpan = maybe sourceSpan sconcat . nonEmpty . toList -unionSourceSpans :: Foldable f => f SourceSpan -> SourceSpan -unionSourceSpans = unionSourceSpansFrom emptySourceSpan - unionSourceSpan :: SourceSpan -> SourceSpan -> SourceSpan unionSourceSpan (SourceSpan start1 end1) (SourceSpan start2 end2) = SourceSpan (min start1 start2) (max end1 end2)