Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
59969f2a
Commit
59969f2a
authored
Oct 09, 2013
by
Pietro Abate
Browse files
Remove duplicate signature due to an ocaml 3.07 problem
this patch probably makes cduce inomcpatible with ocaml 3.07
parent
fdb75653
Changes
1
Hide whitespace changes
Inline
Side-by-side
types/types.ml
View file @
59969f2a
...
@@ -133,13 +133,7 @@ type pair_kind = [ `Normal | `XML ]
...
@@ -133,13 +133,7 @@ type pair_kind = [ `Normal | `XML ]
module
rec
Descr
:
module
rec
Descr
:
sig
sig
(*
type
s
=
{
Want to write:
type s = { ... }
include Custom.T with type t = s
but a bug (?) in OCaml 3.07 makes it impossible
*)
type
t
=
{
atoms
:
Atoms
.
t
;
atoms
:
Atoms
.
t
;
ints
:
Intervals
.
t
;
ints
:
Intervals
.
t
;
chars
:
Chars
.
t
;
chars
:
Chars
.
t
;
...
@@ -150,15 +144,12 @@ sig
...
@@ -150,15 +144,12 @@ sig
abstract
:
Abstract
.
t
;
abstract
:
Abstract
.
t
;
absent
:
bool
absent
:
bool
}
}
include
Custom
.
T
with
type
t
=
s
val
empty
:
t
val
empty
:
t
val
dump
:
Format
.
formatter
->
t
->
unit
val
check
:
t
->
unit
val
equal
:
t
->
t
->
bool
val
hash
:
t
->
int
val
compare
:
t
->
t
->
int
end
=
end
=
struct
struct
type
t
=
{
type
s
=
{
atoms
:
Atoms
.
t
;
atoms
:
Atoms
.
t
;
ints
:
Intervals
.
t
;
ints
:
Intervals
.
t
;
chars
:
Chars
.
t
;
chars
:
Chars
.
t
;
...
@@ -169,6 +160,7 @@ struct
...
@@ -169,6 +160,7 @@ struct
abstract
:
Abstract
.
t
;
abstract
:
Abstract
.
t
;
absent
:
bool
absent
:
bool
}
}
type
t
=
s
let
print_lst
ppf
=
let
print_lst
ppf
=
List
.
iter
(
fun
f
->
f
ppf
;
Format
.
fprintf
ppf
" |"
)
List
.
iter
(
fun
f
->
f
ppf
;
Format
.
fprintf
ppf
" |"
)
...
...
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