add missing test specs for continue after fail

haskell/test/ProductTypes/ContinueAfterFailSpec.hs

+{-# LANGUAGE FlexibleInstances #-}
+
+module ProductTypes.ContinueAfterFailSpec where
+
+import Prelude hiding (lookup,(*), (**))
+import Test.Hspec
+
+import ProductTypes.Base as B
+import ProductTypes.SharedSpecs
+import ProductTypes.ContinueAfterCheckFail as C
+import ProductTypes.Language
+
+
+instance ConvertToBInfer C.Infer where
+  convert (C.Inferred ty) = B.Inferred ty
+  convert (C.NotInferred err) = B.NotInferred $ head err
+
+
+main :: IO ()
+main = hspec spec
+
+spec :: Spec
+spec = sharedSpec $ C.inferType Empty
+
+

haskell/test/SumTypes/ContinueAfterFailSpec.hs

+{-# LANGUAGE FlexibleInstances #-}
+
+module SumTypes.ContinueAfterFailSpec where
+
+import Prelude hiding (lookup,(*), (**))
+import Test.Hspec
+
+import SumTypes.Base as B
+import SumTypes.SharedSpecs
+import SumTypes.ContinueAfterCheckFail as C
+import SumTypes.Language
+
+
+instance ConvertToBInfer C.Infer where
+  convert (C.Inferred ty) = B.Inferred ty
+  convert (C.NotInferred err) = B.NotInferred $ head err
+
+
+main :: IO ()
+main = hspec spec
+
+spec :: Spec
+spec = sharedSpec $ C.inferType Empty
+
+