Add current time to html page
[darcs-mirror-hpvt.git] / Main.hs
1 import Data.Maybe
2 import Data.List
3 import qualified Data.Map as M
4 import System.Time
5
6 import Hackage as H
7 import Debian as D
8
9 import HTMLOutput
10 import Types
11 import Utils
12
13 main = do 
14         putStrLn "Haskell Package Version Tracker"
15
16         hackage <- H.readFile "00-index.tar.gz"
17         putStrLn $ "Read " ++ show (M.size hackage) ++ " packages from Hackage"
18
19         debian <- D.readFile "Sources"
20         putStrLn $ "Read " ++ show (M.size debian) ++ " packages from Debian"
21
22         
23         let combined = mapCombine hackage debian 
24         putStrLn $ "Found " ++ show (M.size combined) ++ " total packages"
25
26         time <- getClockTime
27         let html = outputHTML combined time
28         writeFile "output.html" html
29
30
31