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

Revert "Generalize openMaybe."

Browse Source 
This reverts commit 9a056744cfb33ac0454d07fd89356fb620b7cb50.
This commit is contained in:
Rob Rix 2015-12-30 10:33:28 -05:00
parent 3e3c7be082
commit ad31669f07
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/SplitSpec.hs
View File

@ -113,6 +113,6 @@ spec = do
leafWithRangesInSources sourceA sourceB rangeA rangeB = Free $ Annotated (Info rangeA mempty, Info rangeB mempty) (Leaf $ toList sourceA ++ toList sourceB)
openMaybe :: Maybe a -> Maybe (Maybe a)
openMaybe :: Maybe Bool -> Maybe (Maybe Bool)
openMaybe (Just a) = Just (Just a)
openMaybe Nothing = Nothing