Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Fredrik Wieczerkowski
curry-tools
Commits
9c11b925
Commit
9c11b925
authored
Sep 22, 2016
by
Michael Hanus
Browse files
Bug fix for currpp w.r.t. DET annotation translation
parent
44af7fc6
Changes
1
Hide whitespace changes
Inline
Side-by-side
currypp/Main.curry
View file @
9c11b925
...
...
@@ -7,7 +7,7 @@
--- is supported (option `foreigncode`, see module `Translator`).
---
--- @author Michael Hanus
--- @version
June
2016
--- @version
September
2016
------------------------------------------------------------------------------
import AbstractCurry.Types
...
...
@@ -229,14 +229,15 @@ callPreprocessors opts optlines modname srcprog orgfile
-- untyped Curry but Contracts requires typed Curry:
mbdefprog <- readUntypedCurry modname >>=
transDefaultRules verb defopts srcprog
let newsrcprog = maybe srcprog showCProg mbdefprog
if Contracts `elem` pptargets
then do
maybe done
(\defprog -> writeFile orgfile (optlines ++ showCProg defprog))
mbdefprog
readCurry modname >>= transContracts verb contopts srcprog
>>= return . maybe srcprog showCProg
else return
(maybe srcprog showCProg mbdefprog)
>>= return . maybe
new
srcprog showCProg
else return
newsrcprog
| Contracts `elem` pptargets
= readCurry modname >>= transContracts verb contopts srcprog
>>= return . maybe srcprog showCProg
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment