ENH format error better
This commit is contained in:
parent
281d67bfc9
commit
bd72bec920
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue