Allow all of the tests to run in parallel.

test/InterpreterSpec.hs

@@ -11,7 +11,7 @@ import Categorizable
 import Test.Hspec
 
 spec :: Spec
-spec = do
+spec = parallel $ do
   describe "interpret" $ do
     it "returns a replacement when comparing two unicode equivalent terms" $
       I.interpret comparable (Info range mempty :< Leaf "t\776") (Info range2 mempty :< Leaf "\7831") `shouldBe`

test/OrderedMapSpec.hs

@@ -4,7 +4,7 @@ import OrderedMap as Map
 import Test.Hspec
 
 spec :: Spec
-spec = do
+spec = parallel $ do
   describe "difference" $ do
     it "should return those elements of a not in b" $
       Map.difference a b `shouldBe` (Map.fromList [ ("a", 1) ])

test/PatchOutputSpec.hs

@@ -9,7 +9,7 @@ import Control.Monad.Free
 import Test.Hspec
 
 spec :: Spec
-spec = do
+spec = parallel $ do
   describe "hunks" $ do
     it "empty diffs have no hunks" $
       hunks (Free . Annotated (Info (Range 0 0) mempty, Info (Range 0 0) mempty) $ Leaf "") (fromList "", fromList "") `shouldBe` []

test/RangeSpec.hs

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

test/SplitSpec.hs

@@ -35,7 +35,7 @@ arbitraryLeaf = toTuple <$> arbitrary
   where toTuple string = (string, Info (Range 0 $ length string) mempty, Leaf string)
 
 spec :: Spec
-spec = do
+spec = parallel $ do
   describe "splitAnnotatedByLines" $ do
     prop "outputs one row for single-line unchanged leaves" $
       forAll (arbitraryLeaf `suchThat` isOnSingleLine) $

test/TermSpec.hs

@@ -16,7 +16,7 @@ main :: IO ()
 main = hspec spec
 
 spec :: Spec
-spec = do
+spec = parallel $ do
   describe "Term" $ do
     prop "equality is reflexive" $
       \ a -> unTerm a == unTerm (a :: ArbitraryTerm String ())