diff options
author | 2008-08-16 15:03:05 -0400 | |
---|---|---|
committer | 2008-08-16 15:03:05 -0400 | |
commit | 6cac02596e21666de5658f83957d3fa7d7b60a8c (patch) | |
tree | ba8d7f45822b7cba62fe659ce25ea3504475ef73 /src/monoize.sml | |
parent | e9456cb231725d65a9cdd11dc3d4549fe7254e06 (diff) |
Corifying con-tuples
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index fe360d75..ba9c2087 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -98,6 +98,9 @@ fun monoType env = | L.CConcat _ => poly () | L.CFold _ => poly () | L.CUnit => poly () + + | L.CTuple _ => poly () + | L.CProj _ => poly () end in mt env IM.empty |