import Text.XHtml hiding (version)
import qualified Data.Map as M
import Data.Maybe
+import System.Time
import Types
-outputHTML :: Show k => M.Map k (Maybe Version, Maybe Version) -> String
-outputHTML map = showHtml $ page << mkTable map
+outputHTML :: (Show k, Show t) => M.Map k (Maybe Version, Maybe Version) -> t -> String
+outputHTML map time = showHtml $ page time << mkTable map
myTitle = "Haskell Package Version Tracker"
-page content = thehtml << (header << thetitle << myTitle +++
- body << (h1 << myTitle +++ content +++ footer))
+page time content = thehtml << (header << thetitle << myTitle +++
+ body << (
+ h1 << myTitle +++
+ p << ("Last update: " +++ show time) +++
+ content +++
+ footer))
mkTable m = table << (
tr << (th << "Package" +++ th << "Hackage" +++ th << "Debian") +++
import Data.Maybe
import Data.List
import qualified Data.Map as M
+import System.Time
import Hackage as H
import Debian as D
let combined = mapCombine hackage debian
putStrLn $ "Found " ++ show (M.size combined) ++ " total packages"
- let html = outputHTML combined
+ time <- getClockTime
+ let html = outputHTML combined time
writeFile "output.html" html