Fasmifra: do not load indexed fragments from cache if -f

-f means the user wants to overwrite/refresh the indexed fragments cache
UnixJunkie · Aug 20, 2021 · aa6af97 · aa6af97
1 parent f5eeeca
commit aa6af97
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/fasmifra.ml b/src/fasmifra.ml
@@ -386,9 +386,9 @@ let cache_indexed_fragments force frags_fn seed_frags_frags_ht_pair =
   else
     Log.warn "cache file already exists (use -f to overwrite): %s" cache_fn
 
-let load_indexed_fragments frags_fn =
+let load_indexed_fragments force frags_fn =
   let cache_fn = frags_fn ^ ".bin_cache" in
-  if Sys.file_exists cache_fn then
+  if (not force) && Sys.file_exists cache_fn then
     let () = Log.info "reading indexed fragments from cache: %s" cache_fn in
     restore cache_fn
   else
@@ -438,7 +438,7 @@ let main () =
   CLI.finalize (); (* ------------ CLI parsing ---------------- *)
   Log.info "indexing fragments";
   let seed_fragments, frags_ht =
-    let res = load_indexed_fragments input_frags_fn in
+    let res = load_indexed_fragments force input_frags_fn in
     cache_indexed_fragments force input_frags_fn res;
     res in
   Log.info "seed_frags: %d; attach_types: %d"