From ad1e8a0b12c1c2060ca841f35b7d1d33fa810586 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Thu, 23 Feb 2023 16:06:45 +0100
Subject: [PATCH] Improve error message when argument regex is not valid

---
 src-hxbrief/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src-hxbrief/Main.hs b/src-hxbrief/Main.hs
index d6543c7..0a8ece4 100644
--- a/src-hxbrief/Main.hs
+++ b/src-hxbrief/Main.hs
@@ -759,13 +759,13 @@ main = B.mainFromCmdParser $ do
             let tx = t x
             regexE <- PCRE.compile PCRE.compBlank PCRE.execBlank tx
             case regexE of
-              Left  err   -> error $ show err
+              Left  err   -> error $ "failed parsing regex '" ++ x ++ "': " ++ show err
               Right regex -> pure (joinMode, tx, regex)
           compilerStop x = do
             let tx = t x
             regexE <- PCRE.compile PCRE.compBlank PCRE.execBlank tx
             case regexE of
-              Left  err   -> error $ show err
+              Left  err   -> error $ "failed parsing regex '" ++ x ++ "': " ++ show err
               Right regex -> pure regex
       compiled_summarize <-
         sequence