repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
revent
[cc1516.git]
/
sem.icl
diff --git
a/sem.icl
b/sem.icl
index
709071c
..
31221ca
100644
(file)
--- a/
sem.icl
+++ b/
sem.icl
@@
-35,7
+35,8
@@
instance toString SemError where
toString (ParseError p e) = concat [
toString p,"SemError: ParseError: ", e]
toString (Error e) = "SemError: " +++ e
toString (ParseError p e) = concat [
toString p,"SemError: ParseError: ", e]
toString (Error e) = "SemError: " +++ e
- toString (UnifyErrorStub t1 t2) = toString (UnifyError {line=0,col=0} t1 t2)
+ toString (UnifyErrorStub t1 t2) = toString (UnifyError {line=0,col=0} t1
+t2)
toString (UnifyError p t1 t2) = concat [
toString p,
"SemError: Cannot unify types. Expected: ",
toString (UnifyError p t1 t2) = concat [
toString p,
"SemError: Cannot unify types. Expected: ",
@@
-95,7
+96,8
@@
typeExpr (Op2Expr p e1 BiOr e2) = undef
typeExpr (Op2Expr p e1 BiCons e2) = undef
//typeExpr (FunExpr Pos FunCall) = undef
//typeExpr (EmptyListExpr Pos) = undef
typeExpr (Op2Expr p e1 BiCons e2) = undef
//typeExpr (FunExpr Pos FunCall) = undef
//typeExpr (EmptyListExpr Pos) = undef
-//typeExpr (VarExpr Pos VarDef) = undef //when checking var-expr, be sure to put the infered type
+//typeExpr (VarExpr Pos VarDef) = undef //when checking var-expr, be sure to
+//put the infered type
//in the context
class unify a :: Type a -> Env Type
//in the context
class unify a :: Type a -> Env Type