github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Define maybeUnionRanges as a specialization of maybeConcat.

Browse Source
This commit is contained in:
Rob Rix 2016-03-04 20:07:04 -05:00
parent d6ec8d0d8c
commit 2ca378db0d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Range.hs
View File

@ -74,7 +74,7 @@ unionRangesFrom range ranges = option range id . foldl mappend mempty $ Option .
-- | Return Just the union of all the ranges in a Foldable, or else Nothing. -- | Return Just the union of all the ranges in a Foldable, or else Nothing.
maybeUnionRanges :: Foldable f => f Range -> Maybe Range maybeUnionRanges :: Foldable f => f Range -> Maybe Range
maybeUnionRanges ranges = getOption $ foldMap (Option . Just) ranges maybeUnionRanges = maybeConcat
instance Monoid (Option Range) where instance Monoid (Option Range) where
mempty = Option Nothing mempty = Option Nothing