@@ -555,7 +555,10 @@ loop PSCiOptions{..} = do
555 Left err -> outputStrLn err >> go
555 Left err -> outputStrLn err >> go
556 Right Nothing -> go
556 Right Nothing -> go
557 Right (Just QuitPSCi) -> outputStrLn quitMessage
557 Right (Just QuitPSCi) -> outputStrLn quitMessage
558+ Right (Just c') -> do
559+ handleInterrupt (outputStrLn "Interrupted.")
558− Right (Just c') -> runPSCI (loadAllImportedModules >> handleCommand c') >> go
560+ (withInterrupt (runPSCI (loadAllImportedModules >> handleCommand c')))
560multiLineMode :: Parser Bool
563multiLineMode :: Parser Bool
561multiLineMode = switch $
564multiLineMode = switch $