Fixed a bug in the flow utils code that was using the old name stack when removing an element

2009-02-08 19:11:58 +00:00 · 2009-02-08 19:11:58 +00:00 · a75a195654
commit a75a195654
parent a71499c268
1 changed files with 1 additions and 1 deletions
--- a/flow/FlowUtils.hs
+++ b/flow/FlowUtils.hs
@ -229,7 +229,7 @@ withDeclName n m = do st <- get
                      put $ st {nameStack = n : nameStack st}
                      x <- m
                      st' <- get
-                      put $ st' {nameStack = tail $ nameStack st}
+                      put $ st' {nameStack = tail $ nameStack st'}
                      return x

 withDeclSpec :: (Monad mLabel, Monad mAlter) =>