Commit 07e79f59 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix negative numbers for * modifiers (#7457)

parent 2ae4bcb1
......@@ -281,7 +281,7 @@ getSpecs l z s ('*':cs) us =
in ((p', r), us''')
'.':r -> (stoi 0 r, us')
_ -> ((-1, cs), us')
in (n, p, l, z, s, cs'', us'')
in (abs n, p, if n < 0 then not l else l, z, s, cs'', us'')
getSpecs l z s ('.':cs) us =
let ((p, cs'), us') =
case cs of
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment