Commit 265f1eab authored by John van Groningen's avatar John van Groningen
Browse files

prevent crash if a newtype is used with -dynamics

parent a1971e18
......@@ -134,6 +134,10 @@ where
write_type_info (AlgConses _ _) tcl_file wtis
// unimplemented
= (tcl_file,wtis)
write_type_info (NewType _) tcl_file wtis
#! tcl_file = fwritec AbstractTypeCode tcl_file;
// unimplemented
= (tcl_file,wtis)
instance WriteTypeInfo DefinedSymbol
where
......
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