From bd72bec920cc6832c6429e06daa2c4bd9217ef18 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 5 Feb 2023 11:40:06 -0500
Subject: [PATCH] ENH format error better

---
 lib/Internal/Utils.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs
index 7058850..aa3446b 100644
--- a/lib/Internal/Utils.hs
+++ b/lib/Internal/Utils.hs
@@ -258,13 +258,7 @@ parseRational (pat, re) s = case matchGroupsMaybe s re of
     msg m =
       fail $
         T.unpack $
-          T.concat
-            [ m
-            , "; pattern="
-            , pat
-            , "; query="
-            , s
-            ]
+          T.unwords [m, "-", keyVals [("pattern", pat), ("query", s)]]
     readSign x
       | x == "-" = return (-1)
       | x == "+" || x == "" = return 1