X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=sem.dcl;h=b34bbc35e8f98f60f5e71a6c73b40d461df60f09;hb=249bdba5121bca15012597a09e63a242781b001b;hp=5c01ba0c5dcbec8ecb3394e5e9a157ce779674ac;hpb=8c4ec1c3287d6c6ddefd22ef608a4d97693e7e85;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