From 2f348f787b9cc6a8e7d9274b30503727004a08d2 Mon Sep 17 00:00:00 2001
From: Dmitry Astapov <dastapov@gmail.com>
Date: Fri, 28 Feb 2025 12:18:20 +0000
Subject: [PATCH] ;repl: dont stop on exceptions

---
 hledger/Hledger/Cli/Commands/Run.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Run.hs b/hledger/Hledger/Cli/Commands/Run.hs
index 2aaf19f76..903961bf3 100644
--- a/hledger/Hledger/Cli/Commands/Run.hs
+++ b/hledger/Hledger/Cli/Commands/Run.hs
@@ -25,6 +25,7 @@ import System.Console.CmdArgs.Explicit as C ( Mode )
 import Hledger
 import Hledger.Cli.CliOptions
 
+import Control.Exception
 import Control.Concurrent.MVar
 import Control.Monad (forM_)
 import Control.Monad.IO.Class (liftIO)
@@ -145,8 +146,8 @@ runREPL defaultJrnl findBuiltinCommand = do
       Just "quit" -> return ()
       Just "exit" -> return ()
       Just input -> do
-        liftIO $ runCommand defaultJrnl findBuiltinCommand $ parseCommand input
-        loop
+        liftIO $ (runCommand defaultJrnl findBuiltinCommand $ parseCommand input)
+                  `catch` (\(e::ErrorCall) -> putStr $ show e)
 
 -- | Cache of all journals that have been read by commands given to "run",
 -- keyed by the fully-expanded filename.