From 39cf1b0633fd95ff82815741c9c3d35a0f762cf2 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 14 Sep 2019 13:14:55 -0400
Subject: More detailed error message for bad path kind spec (closes #178)

---
 src/compiler.sml  | 2 +-
 tests/badkind.ur  | 1 +
 tests/badkind.urp | 3 +++
 3 files changed, 5 insertions(+), 1 deletion(-)
 create mode 100644 tests/badkind.ur
 create mode 100644 tests/badkind.urp

diff --git a/src/compiler.sml b/src/compiler.sml
index c00fe807..fab939f9 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -745,7 +745,7 @@ fun parseUrp' accLibs fname =
                            | "relation" => Settings.Relation
                            | "cookie" => Settings.Cookie
                            | "style" => Settings.Style
-                           | _ => (ErrorMsg.error "Bad path kind spec";
+                           | _ => (ErrorMsg.error ("Bad path kind spec \"" ^ s ^ "\"");
                                    Settings.Any)
 
                      fun parsePattern s =
diff --git a/tests/badkind.ur b/tests/badkind.ur
new file mode 100644
index 00000000..600f7a35
--- /dev/null
+++ b/tests/badkind.ur
@@ -0,0 +1 @@
+fun main () : transaction page = <xml>ahoy!</xml>
diff --git a/tests/badkind.urp b/tests/badkind.urp
new file mode 100644
index 00000000..934e4928
--- /dev/null
+++ b/tests/badkind.urp
@@ -0,0 +1,3 @@
+rewrite Badkind/main /
+
+badkind
-- 
cgit v1.2.3