Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
curry
curry-frontend
Commits
952f1c6a
Commit
952f1c6a
authored
Jun 11, 2018
by
Kai-Oliver Prott
Committed by
Finn Teegen
Jul 09, 2018
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix that TypeAnnotatedFlatCurry would not be generated
parent
79782290
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
8 deletions
+12
-8
src/Modules.hs
src/Modules.hs
+12
-8
No files found.
src/Modules.hs
View file @
952f1c6a
...
...
@@ -328,19 +328,23 @@ matchInterface ifn i = do
writeFlat
::
Options
->
CompilerEnv
->
CS
.
Module
Type
->
IL
.
Module
->
CYIO
()
writeFlat
opts
env
mdl
il
=
do
(
_
,
tfc
)
<-
dumpWith
opts
show
(
FC
.
ppProg
.
genFlatCurry
)
DumpTypedFlatCurry
(
env
,
tfcyProg
)
-- TODO ???
when
tfcyTarget
$
liftIO
$
FC
.
writeFlatCurry
(
useSubDir
tfcyName
)
tfc
when
tfcyTarget
$
liftIO
$
FC
.
writeFlatCurry
(
useSubDir
tfcyName
)
tfc
when
tafcyTarget
$
liftIO
$
FC
.
writeFlatCurry
(
useSubDir
tafcyName
)
tafcyProg
when
fcyTarget
$
do
(
_
,
fc
)
<-
dumpWith
opts
show
FC
.
ppProg
DumpFlatCurry
(
env
,
fcyProg
)
liftIO
$
FC
.
writeFlatCurry
(
useSubDir
fcyName
)
fc
writeFlatIntf
opts
env
fcyProg
where
tfcyName
=
typedFlatName
(
filePath
env
)
tfcyProg
=
genTypedFlatCurry
env
mdl
il
tfcyTarget
=
TypedFlatCurry
`
elem
`
optTargetTypes
opts
fcyName
=
flatName
(
filePath
env
)
fcyProg
=
genFlatCurry
tfcyProg
fcyTarget
=
FlatCurry
`
elem
`
optTargetTypes
opts
useSubDir
=
addCurrySubdirModule
(
optUseSubdir
opts
)
(
moduleIdent
env
)
tfcyName
=
typedFlatName
(
filePath
env
)
tfcyProg
=
genTypedFlatCurry
env
mdl
il
tfcyTarget
=
TypedFlatCurry
`
elem
`
optTargetTypes
opts
tafcyName
=
typeAnnFlatName
(
filePath
env
)
tafcyProg
=
genTypeAnnotatedFlatCurry
env
mdl
il
tafcyTarget
=
TypeAnnotatedFlatCurry
`
elem
`
optTargetTypes
opts
fcyName
=
flatName
(
filePath
env
)
fcyProg
=
genFlatCurry
tfcyProg
fcyTarget
=
FlatCurry
`
elem
`
optTargetTypes
opts
useSubDir
=
addCurrySubdirModule
(
optUseSubdir
opts
)
(
moduleIdent
env
)
writeFlatIntf
::
Options
->
CompilerEnv
->
FC
.
Prog
->
CYIO
()
writeFlatIntf
opts
env
prog
...
...
Write
Preview
Markdown
is supported
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