X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fnofib-analyse%2FMain.hs;fp=utils%2Fnofib-analyse%2FMain.hs;h=c0c2903a171c177197f50bae3d23cfff6205450d;hb=aacb44f0de5a337171b1446cab3eaa73f978d480;hp=ae99907569d78863705927c00d66dee4e551e891;hpb=9006dbf097ef7acd612a2c4463fe942165478a79;p=ghc-hetmet.git

diff --git a/utils/nofib-analyse/Main.hs b/utils/nofib-analyse/Main.hs
index ae99907..c0c2903 100644
--- 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
 -}
 
+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