diff --git a/src/Automaton.hs b/src/Automaton.hs index c7a2b4e..7083a31 100644 --- a/src/Automaton.hs +++ b/src/Automaton.hs @@ -86,6 +86,8 @@ answer state (Error {error}) = do - Ignore -} answer state@(Connected {}) (Okaeri {}) = return state +answer state (LogIn {}) = return state +answer state (LogOut {}) = return state answer state (Relay {}) = return state answer state message = do