projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9006dbf
)
Fix more warnings
author
Ian Lynagh
<igloo@earth.li>
Tue, 12 Dec 2006 16:26:24 +0000
(16:26 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 12 Dec 2006 16:26:24 +0000
(16:26 +0000)
utils/nofib-analyse/Main.hs
patch
|
blob
|
history
diff --git
a/utils/nofib-analyse/Main.hs
b/utils/nofib-analyse/Main.hs
index
ae99907
..
c0c2903
100644
(file)
--- a/
utils/nofib-analyse/Main.hs
+++ b/
utils/nofib-analyse/Main.hs
@@
-333,15
+333,19
@@
findBest stuff@(Result base : rest)
unPcnt (_ : rest) = unPcnt rest
-}
unPcnt (_ : rest) = unPcnt rest
-}
+logHeaders :: [String] -> HtmlTable
logHeaders ss
= besides (map (\s -> (td <! [align "right", width "100"] << bold << s)) ss)
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
mkTable t = table <! [cellspacing 0, cellpadding 0, border 0] << t
+tabHeader :: [String] -> HtmlTable
tabHeader ss
= (td <! [align "left", width "100"] << bold << "Program")
<-> logHeaders ss
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")
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")
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
where red = p * 255 `div` 100
blue = (-p) * 255 `div` 100