summaryrefslogtreecommitdiff
path: root/src/effectize.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2013-07-17 10:35:43 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2013-07-17 10:35:43 -0400
commit4df9f6e28c5fee1db2b8dad75e74d2928a98150c (patch)
treee947a9b70a80a8e6245563f2c8d649b059cd5c3c /src/effectize.sml
parent0138eb40cff3bbd368fbad43b24774a08ed87237 (diff)
Tweak error message about naughty GET handlers
Diffstat (limited to 'src/effectize.sml')
-rw-r--r--src/effectize.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/effectize.sml b/src/effectize.sml
index 332e1372..31cbe9ba 100644
--- a/src/effectize.sml
+++ b/src/effectize.sml
@@ -160,8 +160,8 @@ fun effectize file =
if Settings.isSafeGet s then
()
else
- ErrorMsg.errorAt loc ("A link (" ^ s
- ^ ") could cause side effects; try implementing it with a form instead");
+ ErrorMsg.errorAt loc ("A handler (" ^ s
+ ^ ") accessible via GET could cause side effects; try accessing it only via forms or removing it from the signature of its containing module");
((DExport (Link, n, IM.inDomain (pushers, n)), #2 d), evs))
| DExport (Action _, n, _) =>
((DExport (Action (if IM.inDomain (writers, n) then