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