From 546369c62529f0d4a3d4f6560128df62c1699a2a Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 20 Jan 2017 14:38:02 -0500 Subject: [PATCH] :fire: SourceSpan.maybeConcat. --- src/SourceSpan.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/SourceSpan.hs b/src/SourceSpan.hs index cd26f90be..71039bb03 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 -maybeConcat :: (Foldable f, Semigroup a) => f a -> Maybe a -maybeConcat = getOption . foldMap (Option . Just) - unionSourceSpans :: Foldable f => f SourceSpan -> SourceSpan unionSourceSpans = unionSourceSpansFrom emptySourceSpan