suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-02-08 19:11:58 +00:00
parent a71499c268
commit a75a195654
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flow/FlowUtils.hs
View File

@ -229,7 +229,7 @@ withDeclName n m = do st <- get
put $ st {nameStack = n : nameStack st} put $ st {nameStack = n : nameStack st}
x <- m x <- m
st' <- get st' <- get
put $ st' {nameStack = tail $ nameStack st} put $ st' {nameStack = tail $ nameStack st'}
return x return x
withDeclSpec :: (Monad mLabel, Monad mAlter) => withDeclSpec :: (Monad mLabel, Monad mAlter) =>