diff options
Diffstat (limited to 'Verify.hs')
-rw-r--r-- | Verify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -31,9 +31,9 @@ verify opts = go 1 startState =<< streamLog (verifyLogFile opts) -- Learn session keys before verifying signatures. st' <- case msg of - User (ControlMessage (Control { control = SessionKey sk })) -> + User (ControlMessage (Control { control = SessionKey sk _ })) -> addSessionKey lineno sk st - Developer (ControlMessage (Control { control = SessionKey sk })) -> + Developer (ControlMessage (Control { control = SessionKey sk _ })) -> addSessionKey lineno sk st _ -> return st |