Commit 9371bf48 authored by André Pacak's avatar André Pacak

fo recursive types eliminate typemap argument

parent 0b2702b3
This diff is collapsed.
{-# LANGUAGE FlexibleInstances #-}
module FORecursiveTypes.EliminateTypeMapArgumentSpec where
import Prelude hiding (lookup,(*), (**))
import Test.Hspec
import FORecursiveTypes.Base as B
import FORecursiveTypes.SharedSpecs
import FORecursiveTypes.EliminateTypeMapArgument as E
import FORecursiveTypes.Language
instance ConvertToBInfer E.Infer where
convert (E.Inferred ty) = B.Inferred ty
convert (E.NotInferred err) = B.NotInferred $ head err
main :: IO ()
main = hspec spec
spec :: Spec
spec = sharedSpec $ E.inferType
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment