github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 11:46:14 +03:00
Code Issues Projects Releases Wiki Activity

Use Data.Maybe’s isJust & isNothing to test for open elements.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 13:00:46 -05:00
parent 64362581c4
commit 3c85d4d0af
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/SplitSpec.hs
View File

@ -9,6 +9,7 @@ import Test.Hspec.QuickCheck
import Test.QuickCheck hiding (Fixed) import Test.QuickCheck hiding (Fixed)
import Control.Comonad.Cofree import Control.Comonad.Cofree
import Control.Monad.Free hiding (unfold) import Control.Monad.Free hiding (unfold)
import qualified Data.Maybe as Maybe
import Patch import Patch
import Syntax import Syntax
@ -167,6 +168,6 @@ spec = do
offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories
offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax
span = Span (Just "category-leaf") span = Span (Just "category-leaf")
isOpen (Row a b) = (maybe False (const True) $ openLineBy openElement [ a ]) && (maybe False (const True) $ openLineBy openElement [ b ]) isOpen (Row a b) = (Maybe.isJust $ openLineBy openElement [ a ]) && (Maybe.isJust $ openLineBy openElement [ b ])
isClosed (Row a@(Line _ _) b@(Line _ _)) = (maybe True (const False) $ openLineBy openElement [ a ]) && (maybe True (const False) $ openLineBy openElement [ b ]) isClosed (Row a@(Line _ _) b@(Line _ _)) = (Maybe.isNothing $ openLineBy openElement [ a ]) && (Maybe.isNothing $ openLineBy openElement [ b ])
isClosed (Row _ _) = False isClosed (Row _ _) = False