github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +03:00
Code Issues Projects Releases Wiki Activity

🔥 unionRangesFrom.

Browse Source
This commit is contained in:
Rob Rix 2017-06-24 10:45:15 -04:00
parent d368e44a57
commit 59b18baa9c
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Range.hs
View File

@ -1,7 +1,6 @@
{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DeriveAnyClass #-}
module Data.Range where module Data.Range where
import Data.List.NonEmpty (nonEmpty)
import Data.Semigroup import Data.Semigroup
import Prologue import Prologue
import Test.LeanCheck import Test.LeanCheck
@ -26,10 +25,6 @@ intersectsRange range1 range2 = start range1 < end range2 && start range2 < end
unionRange :: Range -> Range -> Range unionRange :: Range -> Range -> Range
unionRange (Range start1 end1) (Range start2 end2) = Range (min start1 start2) (max end1 end2) unionRange (Range start1 end1) (Range start2 end2) = Range (min start1 start2) (max end1 end2)
-- | Return a range that contains all the ranges in a Foldable, or the passed Range if the Foldable is empty.
unionRangesFrom :: Foldable f => Range -> f Range -> Range
unionRangesFrom range = maybe range sconcat . nonEmpty . toList
-- Instances -- Instances