diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 16:36:50 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 16:36:50 -0400 |
commit | 17cb59d373d1a94731d3730b938776b524d9f81c (patch) | |
tree | 3942a2b3cfdab76d585ffaea82462831d241d351 /src/urweb.grm | |
parent | f48c39b31e2d82b1ef7da1aae7d0c555d26d3101 (diff) |
URLs
Diffstat (limited to 'src/urweb.grm')
-rw-r--r-- | src/urweb.grm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index 7e1f6757..7288359a 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1280,7 +1280,19 @@ tagHead: BEGIN_TAG (let attrs : ([]) | attr attrs (attr :: attrs) -attr : SYMBOL EQ attrv ((CName (capitalize SYMBOL), s (SYMBOLleft, SYMBOLright)), attrv) +attr : SYMBOL EQ attrv ((CName (capitalize SYMBOL), s (SYMBOLleft, SYMBOLright)), + if (SYMBOL = "href" orelse SYMBOL = "src") + andalso (case #1 attrv of + EPrim _ => true + | _ => false) then + let + val loc = s (attrvleft, attrvright) + in + (EApp ((EVar (["Basis"], "bless", Infer), loc), + attrv), loc) + end + else + attrv) attrv : INT (EPrim (Prim.Int INT), s (INTleft, INTright)) | FLOAT (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright)) |