diff options
author | 2009-05-28 10:35:25 -0400 | |
---|---|---|
committer | 2009-05-28 10:35:25 -0400 | |
commit | 6a6c98d74f0eb61b52e8adc5385698a224eeccc1 (patch) | |
tree | bc9e633b76c75ea47d6cfdb826c549ed7cd4c66a /src/monoize.sml | |
parent | 3cb644caeed50e5c82778b5ed7c165950655109a (diff) |
Demo compiles with pattern-matching-fu
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 87c4d86c..4d7a666e 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -148,6 +148,8 @@ fun monoType env = (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CApp ((L.CFfi ("Basis", "sql_table"), _), _), _), _) => (L'.TFfi ("Basis", "string"), loc) + | L.CApp ((L.CFfi ("Basis", "sql_view"), _), _) => + (L'.TFfi ("Basis", "string"), loc) | L.CFfi ("Basis", "sql_sequence") => (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CApp ((L.CFfi ("Basis", "sql_query"), _), _), _), _) => |