@@ -2,7 +2,7 @@
22{-# OPTIONS_GHC -fno-warn-orphans #-}
33module Main where
44
5−import Test.Hspec.Monadic (Specs, describe, hspecX)
5+import Test.Hspec.Monadic (Spec, describe, hspec)
66import Test.Hspec.HUnit()
77import Test.Hspec.QuickCheck(prop)
88import Test.QuickCheck
@@ -18,10 +18,10 @@ instance Arbitrary T.Text where
1818
1919
2020main :: IO ()
21−main = hspecX specs
21+main = hspec spec
2222
23−specs :: Specs
24−specs = do
23+spec :: Spec
24+spec = do
2525 describe "PathPiece" $ do
2626 prop "toPathPiece <=> fromPathPiece String" $ \(p::String) ->
2727 case (fromPathPiece . toPathPiece) p of