diff options
| author | letouzey | 2010-07-02 13:36:06 +0000 |
|---|---|---|
| committer | letouzey | 2010-07-02 13:36:06 +0000 |
| commit | 4e90d6d144df100d98bff366c2c2c188b375ff12 (patch) | |
| tree | 0c7c804969d9acba0a46b19f840202960ef2c253 /plugins/extraction/common.ml | |
| parent | 68a133db448e5663da6daf677d4d882bf1bad05c (diff) | |
Extraction: better support of modules
- For Haskell, modules abbreviations and applied functors are expanded.
The only remaining sitation that isn't supported is extracting functors
and applying them after extraction.
- Add a module extraction for Scheme with the same capabilities as for
Haskell (with no Extraction Library, though).
- Nicer extracted module types (use of the mb.mod_type_alg if present)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13236 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/common.ml')
| -rw-r--r-- | plugins/extraction/common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml index afa674e9db..0941ed50fa 100644 --- a/plugins/extraction/common.ml +++ b/plugins/extraction/common.ml @@ -304,7 +304,7 @@ and mp_renaming = let ref_renaming_fun (k,r) = let mp = modpath_of_r r in let l = mp_renaming mp in - let l = if lang () = Haskell && not (modular ()) then [""] else l in + let l = if lang () <> Ocaml && not (modular ()) then [""] else l in let s = if l = [""] (* this happens only at toplevel of the monolithic case *) then |