diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-19 20:27:51 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-19 20:27:51 +0000 |
| commit | 248728628f5da946f96c22ba0a0e7e9b33019382 (patch) | |
| tree | 905dbbafa65dd7bf02823318326be2ca389f833f /kernel/cooking.ml | |
| parent | 3889c9a9e7d017ef2eea647d8c17d153a0b90083 (diff) | |
Dir_path --> DirPath
Ok, this is merely a matter of taste, but up to now the usage
in Coq is rather to use capital letters instead of _ in the
names of inner modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16221 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cooking.ml')
| -rw-r--r-- | kernel/cooking.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cooking.ml b/kernel/cooking.ml index 4fde7474b..fb3303687 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -25,9 +25,9 @@ open Environ type work_list = Id.t array Cmap.t * Id.t array Mindmap.t -let pop_dirpath p = match Dir_path.repr p with +let pop_dirpath p = match DirPath.repr p with | [] -> anomaly ~label:"dirpath_prefix" (Pp.str "empty dirpath") - | _::l -> Dir_path.make l + | _::l -> DirPath.make l let pop_mind kn = let (mp,dir,l) = Names.repr_mind kn in |