Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
aacb44f0
Commit
aacb44f0
authored
Dec 12, 2006
by
Ian Lynagh
Browse files
Fix more warnings
parent
9006dbf0
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/nofib-analyse/Main.hs
View file @
aacb44f0
...
...
@@ -333,15 +333,19 @@ findBest stuff@(Result base : rest)
unPcnt (_ : rest) = unPcnt rest
-}
logHeaders
::
[
String
]
->
HtmlTable
logHeaders
ss
=
besides
(
map
(
\
s
->
(
td
<!
[
align
"right"
,
width
"100"
]
<<
bold
<<
s
))
ss
)
mkTable
::
HtmlTable
->
Html
mkTable
t
=
table
<!
[
cellspacing
0
,
cellpadding
0
,
border
0
]
<<
t
tabHeader
::
[
String
]
->
HtmlTable
tabHeader
ss
=
(
td
<!
[
align
"left"
,
width
"100"
]
<<
bold
<<
"Program"
)
<->
logHeaders
ss
multiTabHeader
::
[
String
]
->
HtmlTable
multiTabHeader
ss
=
(
td
<!
[
align
"left"
,
width
"100"
]
<<
bold
<<
"Program"
)
<->
(
td
<!
[
align
"left"
,
width
"100"
]
<<
bold
<<
"Module"
)
...
...
@@ -351,7 +355,7 @@ multiTabHeader ss
calcColor
::
Int
->
String
calcColor
p
|
p
>=
0
=
"#"
++
(
showHex
red
2
"0000"
)
|
otherwise
=
"#0000"
++
(
showHex
blue
2
""
)
|
otherwise
=
"#0000"
++
(
showHex
blue
2
""
)
where
red
=
p
*
255
`
div
`
100
blue
=
(
-
p
)
*
255
`
div
`
100
...
...
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