tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.11 vs tracks/haskell/exercises/zipper/test/Tests.hs in trackler-2.1.0.12

- old
+ new

@@ -1,7 +1,7 @@ import Data.Maybe (fromJust) -import Test.Hspec (Spec, describe, it, shouldBe) +import Test.Hspec (Spec, it, shouldBe) import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith) import Zipper ( BinTree(BT) , fromTree @@ -17,10 +17,10 @@ main :: IO () main = hspecWith defaultConfig {configFastFail = True} specs specs :: Spec -specs = describe "zipper" $ do +specs = do let leaf v = node v Nothing Nothing node v l r = Just (BT v l r :: BinTree Int) t1 = BT 1 (node 2 Nothing $ leaf 3) $ leaf 4 t2 = BT 1 (node 5 Nothing $ leaf 3) $ leaf 4