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

Corrected what appeared to be a small bug in defineNonce

Browse Source
This commit is contained in:
Neil Brown 2007-08-22 10:55:57 +00:00
parent 262913fabd
commit 017cb51bd8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CompState.hs
View File

@ -214,7 +214,7 @@ makeNonce s
defineNonce :: CSM m => Meta -> String -> A.SpecType -> A.NameType -> A.AbbrevMode -> m A.Specification defineNonce :: CSM m => Meta -> String -> A.SpecType -> A.NameType -> A.AbbrevMode -> m A.Specification
defineNonce m s st nt am defineNonce m s st nt am
= do ns <- makeNonce s = do ns <- makeNonce s
let n = A.Name m A.ProcName ns let n = A.Name m nt ns
let nd = A.NameDef { let nd = A.NameDef {
A.ndMeta = m, A.ndMeta = m,
A.ndName = ns, A.ndName = ns,