X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FlibraryDb.ml;h=e82e91f97f1629295d149ba1d066d11234932218;hb=b637879a2b3f2ceda65afb3c950061189c4730b7;hp=7ee8427f74086da808c463fac9391a324897efa8;hpb=130208dc6a3bab34a7ed246afdee76ffc6f6b00a;p=helm.git diff --git a/helm/software/components/library/libraryDb.ml b/helm/software/components/library/libraryDb.ml index 7ee8427f7..e82e91f97 100644 --- a/helm/software/components/library/libraryDb.ml +++ b/helm/software/components/library/libraryDb.ml @@ -104,7 +104,7 @@ let clean_owner_environment () = match HSql.errno dbtype dbd with | HSql.No_such_table | HSql.Bad_table_error - | HSql.No_such_index -> prerr_endline statement; () + | HSql.No_such_index -> () | _ -> raise exn ) statements; ;;