From 31b7eea8489d84ae3abdb068aaf15a6fcdb02124 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 19 Oct 2018 17:18:52 -0400 Subject: More telegraphic error text for clashing URL prefixes (closes #111) --- src/tag.sml | 2 +- tests/dupTag.ur | 21 +++++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) create mode 100644 tests/dupTag.ur diff --git a/src/tag.sml b/src/tag.sml index 94e5d44f..3040c36c 100644 --- a/src/tag.sml +++ b/src/tag.sml @@ -124,7 +124,7 @@ fun exp uf env (e, s) = () else ErrorMsg.errorAt loc - ("Duplicate HTTP tag " + ("Duplicate URL prefix " ^ s); if ek = ek' then () diff --git a/tests/dupTag.ur b/tests/dupTag.ur new file mode 100644 index 00000000..cee35df1 --- /dev/null +++ b/tests/dupTag.ur @@ -0,0 +1,21 @@ +structure S = struct + fun one () = + let + fun save r = return + in + return + end + fun two () = + let + fun save r = return + in + return + end +end + +fun main () : transaction page = return + + one + two + + -- cgit v1.2.3