ENH format error better

2023-02-05 11:40:06 -05:00 · 2023-02-05 11:40:06 -05:00 · bd72bec920
parent 281d67bfc9
commit bd72bec920
1 changed files with 1 additions and 7 deletions
--- 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