Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
07e79f59
Commit
07e79f59
authored
Jan 28, 2013
by
Simon Marlow
Browse files
fix negative numbers for * modifiers (
#7457
)
parent
2ae4bcb1
Changes
1
Hide whitespace changes
Inline
Side-by-side
libraries/base/Text/Printf.hs
View file @
07e79f59
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment