diff options
Diffstat (limited to 'ControlWindow.hs')
-rw-r--r-- | ControlWindow.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ControlWindow.hs b/ControlWindow.hs index 99fd4d3..2540640 100644 --- a/ControlWindow.hs +++ b/ControlWindow.hs @@ -118,7 +118,7 @@ displayInput ochan ichan promptchan responsechan = loop go (Just (ControlWindowMessage m)) = do putStrLn m loop - go (Just (ControlInputAction (SessionKey k))) = do + go (Just (ControlInputAction (SessionKey k _))) = do askToAllow ochan promptchan responsechan k loop go (Just (ControlInputAction m@(ChatMessage {}))) = do |