   IExploitTargetStore
   (read-exploit-target [_ id]
     (et/handle-read-exploit-target state id))
-  (create-exploit-target [_ new-exploit-target]
+  (create-exploit-target [_ login new-exploit-target]
     (et/handle-create-exploit-target state new-exploit-target))
-  (update-exploit-target [_ id new-exploit-target]
+  (update-exploit-target [_ id login new-exploit-target]
     (et/handle-update-exploit-target state id new-exploit-target))
   (delete-exploit-target [_ id]
     (et/handle-delete-exploit-target state id))


(defrecord JudgementStore [state]
  IJudgementStore
  (create-judgement [_ new-judgement]
    (ju/handle-create-judgement state new-judgement))
  (read-judgement [_ id]
    (ju/handle-read-judgement state id))

  ITTPStore
  (read-ttp [_ id]
    (ttp/handle-read-ttp state id))
  (create-ttp [_ login new-ttp]
    (ttp/handle-create-ttp state new-ttp))
  (update-ttp [_ id login new-ttp]
    (ttp/handle-update-ttp state id new-ttp))
  (delete-ttp [_ id]
    (ttp/handle-delete-ttp state id))
