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