diff options
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index eccd60c2..83b49719 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -85,11 +85,11 @@ fun p_typ' par env (t, loc) = (case ListUtil.search #3 (!xncs) of NONE => raise Fail "CjrPrint: TDatatype marked Option has no constructor with an argument" | SOME t => - case #1 t of - TDatatype _ => p_typ' par env t - | TFfi ("Basis", "string") => p_typ' par env t - | _ => box [p_typ' par env t, - string "*"]) + if isUnboxable t then + p_typ' par env t + else + box [p_typ' par env t, + string "*"]) | TDatatype (Default, n, _) => (box [string "struct", space, |