let
fct_info project kf =
match
Marks
.get_marks project kf
with
|
None
->
[]
|
Some
fm
->
[fm]