diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2014-08-01 15:44:17 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2014-08-01 15:44:17 -0400 |
| commit | 1816e4664bfa4b10cfdb9d10a871343acb250f83 (patch) | |
| tree | 76d0a9801c5ad0dc1e08f11635a8c2010926586b /src/pathcheck.sml | |
| parent | 32aa8589761b58e24715818a7b3af73d69055b27 (diff) | |
Differentiate between HTML and normal string literals
Diffstat (limited to 'src/pathcheck.sml')
| -rw-r--r-- | src/pathcheck.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pathcheck.sml b/src/pathcheck.sml index c1bb667b..3533032e 100644 --- a/src/pathcheck.sml +++ b/src/pathcheck.sml @@ -88,7 +88,7 @@ fun checkDecl ((d, loc), (funcs, rels, cookies, styles)) = val rels = #2 (doRel s) val rels = case #1 pe of - EPrim (Prim.String "") => rels + EPrim (Prim.String (_, "")) => rels | _ => let val s' = s ^ "_Pkey" |