X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=sem.dcl;h=b34bbc35e8f98f60f5e71a6c73b40d461df60f09;hb=c9a2ff29fb4482fc1f43cf0386198a7d0e4a5f9b;hp=5c01ba0c5dcbec8ecb3394e5e9a157ce779674ac;hpb=df7fbaaf21817473f51525a2c8f03b0a5a37b823;p=cc1516.git diff --git a/sem.dcl b/sem.dcl index 5c01ba0..b34bbc3 100644 --- a/sem.dcl +++ b/sem.dcl @@ -2,10 +2,12 @@ definition module sem from Data.Either import :: Either from AST import :: AST, :: Pos, :: Type +from StdOverloaded import class toString :: SemError = ParseError Pos String | UnifyError Pos Type Type + | UnifyErrorStub Type Type | Error String :: SemOutput :== Either [SemError] AST