Commit b86afe59 authored by John van Groningen's avatar John van Groningen
Browse files

bug fix: prevent compiler crash if type in icl module has

fewer constructors than type in dcl module
parent 37956a72
......@@ -53,6 +53,8 @@ where
= compare_constructor_lists dcl_conses icl_conses dcl_cons_defs icl_cons_defs comp_st
= (False, icl_cons_defs, comp_st)
= (False, icl_cons_defs, comp_st)
compare_constructor_lists [ dcl_cons : dcl_conses ] [] dcl_cons_defs icl_cons_defs comp_st
= (False, icl_cons_defs, comp_st)
compare_rhs_of_types (SynType dclType) (SynType iclType) dcl_cons_defs icl_cons_defs comp_st
# (ok, comp_st) = compare dclType iclType comp_st
......@@ -1250,4 +1252,5 @@ file_to_true file = code {
pushB TRUE
.end
};
*/
\ No newline at end of file
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