diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-24 13:14:24 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-24 13:14:24 +0000 |
commit | 6e88e153b42dadb0ded217ad85916ef071455f8b (patch) | |
tree | e41388a19c73e06fdefd799d326cb3b8d9b18732 /plugins/extraction/haskell.ml | |
parent | c789e243ff599db876e94a5ab2a13ff98baa0d6c (diff) |
Dead code in extraction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13461 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/haskell.ml')
-rw-r--r-- | plugins/extraction/haskell.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index 3048db4b7..3d18431aa 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -281,8 +281,6 @@ let rec pp_ind first kn i ind = (*s Pretty-printing of a declaration. *) -let pp_string_parameters ids = prlist (fun id -> str id ++ str " ") - let pp_decl = function | Dind (kn,i) when i.ind_info = Singleton -> pp_singleton (mind_of_kn kn) i.ind_packets.(0) ++ fnl () |