Commit c2975979 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Fix stupid typo!

parent 6bfabfae
...@@ -123,7 +123,7 @@ let make config = ...@@ -123,7 +123,7 @@ let make config =
let inject_cred cred = let inject_cred cred =
try_lwt try_lwt
let _ = Ocsipersist.find cred_table cred in lwt _ = Ocsipersist.find cred_table cred in
failwith "trying to add duplicate credential" failwith "trying to add duplicate credential"
with Not_found -> with Not_found ->
Ocsipersist.add cred_table cred None Ocsipersist.add cred_table cred None
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment