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