Mercurial > urweb

diff src/pathcheck.sml @ 2048:4d64af730e35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Differentiate between HTML and normal string literals
author Adam Chlipala <adam@chlipala.net>
date Fri, 01 Aug 2014 15:44:17 -0400
parents c1e3805e604e
children 25874084bf1f
line wrap: on
line diff
--- a/src/pathcheck.sml	Fri Aug 01 11:43:44 2014 -0400
+++ b/src/pathcheck.sml	Fri Aug 01 15:44:17 2014 -0400
@@ -88,7 +88,7 @@
 
                 val rels = #2 (doRel s)
                 val rels = case #1 pe of
-                               EPrim (Prim.String "") => rels
+                               EPrim (Prim.String (_, "")) => rels
                              | _ =>
                                let
                                    val s' = s ^ "_Pkey"