~ todos

src/keys.ml

@@ -1,7 +1,6 @@
 open Syntax
 open Crypto
 
-(* TODO better error type *)
 type 'a result = ('a, string) Result.t
 
 module type S = sig
@@ -33,8 +32,8 @@ module Make (Conn : Pg.CONN) : S = struct
 
   let conn = (module Conn : Pg.CONN)
 
-  (* TODO
-     error "key not found", either:
+  (* TODO better error
+     can only be "key not found", either:
        - we tried to sign with a key that is not ours
        - key was revoked
        - bad keyring state *)