summaryrefslogtreecommitdiff
path: root/src/Language/ECMAScript3/Analysis/LabelSet.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/ECMAScript3/Analysis/LabelSet.hs')
-rw-r--r--src/Language/ECMAScript3/Analysis/LabelSet.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Language/ECMAScript3/Analysis/LabelSet.hs b/src/Language/ECMAScript3/Analysis/LabelSet.hs
index 2686999..4bbd606 100644
--- a/src/Language/ECMAScript3/Analysis/LabelSet.hs
+++ b/src/Language/ECMAScript3/Analysis/LabelSet.hs
@@ -81,14 +81,14 @@ annotateStatement :: Data a =>
annotateStatement r w s = case s of
LabelledStmt ann lab stmt ->
let labelset = Set.insert (id2Label lab) (r ann)
- newstmt = annotateStatement r w $ w labelset <$> stmt
+ newstmt = annotateStatement r w $ withAnnotation (w labelset) stmt
in LabelledStmt ann lab newstmt
SwitchStmt {} ->
let labelset = Set.insert EmptyLabel (r $ getAnnotation s)
- in descend (annotateStatement r w) (w labelset <$> s)
+ in descend (annotateStatement r w) $ withAnnotation (w labelset) s
_ | isIterationStmt s ->
let labelset = Set.insert EmptyLabel (r $ getAnnotation s)
- in descend (annotateStatement r w) (w labelset <$> s)
+ in descend (annotateStatement r w) (withAnnotation (w labelset) s)
_ -> descend (annotateStatement r w) s
id2Label :: Id a -> Label