From 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Apr 2009 14:49:25 -0400
Subject: Label exported symbols by effect-ness; factor out some common
 datatypes

---
 src/tag.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/tag.sml')

diff --git a/src/tag.sml b/src/tag.sml
index 7a8fe128..78a4609b 100644
--- a/src/tag.sml
+++ b/src/tag.sml
@@ -118,7 +118,7 @@ fun exp env (e, s) =
                                            in
                                                case x of
                                                    (CName "Link", _) => tagIt (Link, "Href")
-                                                 | (CName "Action", _) => tagIt (Action, "Action")
+                                                 | (CName "Action", _) => tagIt (Action ReadWrite, "Action")
                                                  | _ => ((x, e, t), (count, tags, byTag, newTags))
                                            end)
                      s xets
-- 
cgit v1.2.3