git.iko.soy/typeable/http-api-data
on master help sign in
Get rid of some deprecation warnings
cbb6b6bSimon Hengel
test/main.hs+4−4
compare with master
unifiedsplit
@@ -2,7 +2,7 @@
2{-# OPTIONS_GHC -fno-warn-orphans #-}
2{-# OPTIONS_GHC -fno-warn-orphans #-}
3module Main where
3module Main where
4
4
5−import Test.Hspec.Monadic (Specs, describe, hspecX)
5+import Test.Hspec.Monadic (Spec, describe, hspec)
6import Test.Hspec.HUnit()
6import Test.Hspec.HUnit()
7import Test.Hspec.QuickCheck(prop)
7import Test.Hspec.QuickCheck(prop)
8import Test.QuickCheck
8import Test.QuickCheck
@@ -18,10 +18,10 @@ instance Arbitrary T.Text where
18
18
19
19
20main :: IO ()
20main :: IO ()
21−main = hspecX specs
21+main = hspec spec
22
22
23−specs :: Specs
23+spec :: Spec
24−specs = do
24+spec = do
25 describe "PathPiece" $ do
25 describe "PathPiece" $ do
26 prop "toPathPiece <=> fromPathPiece String" $ \(p::String) ->
26 prop "toPathPiece <=> fromPathPiece String" $ \(p::String) ->
27 case (fromPathPiece . toPathPiece) p of
27 case (fromPathPiece . toPathPiece) p of