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

Changed genMissing so that it generates a run-time error in the generated code

Browse Source
This commit is contained in:
Neil Brown 2008-11-27 09:25:07 +00:00
parent e79ccf1b46
commit ce86ec2337
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateCHP.hs
View File

@ -98,7 +98,7 @@ genName n = let unders = [if c == '.' then '_' else c | c <- A.nameName n] in
genMissing = flip genMissing' () genMissing = flip genMissing' ()
genMissing' :: Data a => String -> a -> CGen() genMissing' :: Data a => String -> a -> CGen()
genMissing' s x = tell ["{-",s,": ", showConstr $ toConstr x,"-}"] -- for now, everthing is missing! genMissing' s x = tell ["(error \"",s,": ", showConstr $ toConstr x,"\")"] -- for now, everthing is missing!
-- TODO in future generate a Die error -- TODO in future generate a Die error
genHeader :: CGen () genHeader :: CGen ()