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

Revert "Add a maybeUnionRanges function."

Browse Source 
This reverts commit 183d77173ea6a9250092710996c066d3af19d816.
This commit is contained in:
Rob Rix 2016-03-04 20:08:10 -05:00
parent e1ea26206a
commit 9529d3aab0
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Range.hs
View File

@ -72,9 +72,6 @@ unionRanges = unionRangesFrom (Range 0 0)
unionRangesFrom :: Foldable f => Range -> f Range -> Range
unionRangesFrom range = fromMaybe range . maybeConcat
maybeUnionRanges :: (Functor f, Foldable f) => f Range -> Maybe Range
maybeUnionRanges ranges = getOption $ foldl mappend mempty $ Option . Just <$> ranges
instance Monoid (Option Range) where
mempty = Option Nothing
mappend (Option (Just a)) (Option (Just b)) = Option (Just (unionRange a b))