Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
VEBER Philippe
codepi
Commits
27217276
Commit
27217276
authored
Nov 17, 2020
by
Philippe Veber
Browse files
tk/Cpt: fixed bug
parent
8d3102fe
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lib/tk/cpt.ml
lib/tk/cpt.ml
+2
-2
No files found.
lib/tk/cpt.ml
View file @
27217276
...
...
@@ -23,7 +23,7 @@ let of_file fn =
)
|>
Result
.
all
in
let
cols
=
List
.
filter
cols
~
f
:
(
fun
(
label
,
_
)
->
not
(
String
.
equal
label
"Site"
))
in
let
cols
=
List
.
filter
cols
~
f
:
(
fun
(
label
,
_
)
->
not
(
String
.
equal
label
"Site
s
"
))
in
let
nrows
=
match
cols
with
|
[]
->
assert
false
|
(
_
,
h
)
::
_
->
Array
.
length
h
...
...
@@ -55,6 +55,6 @@ let write_columns oc res =
let
to_file
table
~
output
=
Out_channel
.
with_file
output
~
f
:
(
fun
oc
->
write_row
oc
(
"Site"
::
List
.
map
table
.
cols
~
f
:
fst
)
;
write_row
oc
(
"Site
s
"
::
List
.
map
table
.
cols
~
f
:
fst
)
;
write_columns
oc
table
)
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