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 =
|
msg m =
|
||||||
fail $
|
fail $
|
||||||
T.unpack $
|
T.unpack $
|
||||||
T.concat
|
T.unwords [m, "-", keyVals [("pattern", pat), ("query", s)]]
|
||||||
[ m
|
|
||||||
, "; pattern="
|
|
||||||
, pat
|
|
||||||
, "; query="
|
|
||||||
, s
|
|
||||||
]
|
|
||||||
readSign x
|
readSign x
|
||||||
| x == "-" = return (-1)
|
| x == "-" = return (-1)
|
||||||
| x == "+" || x == "" = return 1
|
| x == "+" || x == "" = return 1
|
||||||
|
|
Loading…
Reference in New Issue