diff options
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index 39db4c1c..450c5bee 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -312,6 +312,10 @@ fun p_decl env (dAll as (d, _) : decl) = string "(", p_typ env t, string ")"]) ts] + + | DDatabase s => box [string "database", + space, + string s] fun p_file env file = let |