diff options
author | Magnus Ahltorp <map@kth.se> | 2015-03-27 00:01:21 +0100 |
---|---|---|
committer | Magnus Ahltorp <map@kth.se> | 2015-03-27 00:01:21 +0100 |
commit | a4d44679ddaafdc0ba205746e8eb8850e07f5216 (patch) | |
tree | 415d84b7ae50e6859ed7aaa3aa57339bf8e49e62 /src | |
parent | 44d18b6db6d9747fdf402393832e719975b508a6 (diff) |
Add entryhash files when mergingentryhash-merge
Diffstat (limited to 'src')
-rw-r--r-- | src/frontend.erl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/frontend.erl b/src/frontend.erl index e528419..3977d0e 100644 --- a/src/frontend.erl +++ b/src/frontend.erl @@ -121,11 +121,14 @@ check_entries(Entries, Start, End) -> end end, [], lists:zip(Entries, lists:seq(Start, End))). -check_entry(Hash, Index) -> - case db:get_by_leaf_hash(Hash) of +check_entry(LeafHash, Index) -> + case db:get_by_leaf_hash(LeafHash) of notfound -> {notfound, Index}; - _ -> + {Index, LeafHash, Entry} -> + {ok, {Module, Function}} = application:get_env(plop, entryhash_from_entry), + EntryHash = Module:Function(Entry), + ok = db:add_entryhash(LeafHash, EntryHash), ok end. |