github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

clean up

Browse Source
This commit is contained in:
joshvera 2015-12-17 13:10:12 -05:00
parent 0223de4145
commit 09faaf9b4e
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/RangeSpec.hs
View File

@ -4,8 +4,7 @@ import Test.Hspec
import Range
spec :: Spec
spec = do
describe "rangesAndWordsFrom" $ do
spec = describe "rangesAndWordsFrom" $ do
it "should produce no ranges for the empty string" $
rangesAndWordsFrom 0 [] `shouldBe` []

1
test/SplitSpec.hs
View File

@ -5,7 +5,6 @@ import Split
import qualified Data.Set as Set
import Diff
import Range
import Term
import Test.Hspec.QuickCheck
import Test.QuickCheck hiding (Fixed)
import Control.Comonad.Cofree

2
test/TermSpec.hs
View File

@ -20,7 +20,7 @@ newtype ArbitraryTerm a annotation = ArbitraryTerm (annotation, (Syntax a (Arbit
deriving (Show, Eq, Generic)
unTerm :: ArbitraryTerm a annotation -> Term a annotation
unTerm arbitraryTerm = unfold unpack arbitraryTerm
unTerm = unfold unpack
where unpack (ArbitraryTerm (annotation, syntax)) = (annotation, syntax)
instance (Eq a, Eq annotation, Arbitrary a, Arbitrary annotation) => Arbitrary (ArbitraryTerm a annotation) where