-- | Formats a log file, producing HTML ouput.
layout :: String -> IRCLog -> NominalDiffTime -> FormatterM String
layout chan logfile elapsedTime = do
    headers chan
    scoreboard 15
    hourlyActivity
    charsToLinesRatio
    footer $ "0.1.0 in " ++ show elapsedTime
    getFinalOutput

-- | Parses the command line options and then processes files (if any).
layout :: String -> IRCLog -> NominalDiffTime -> FormatterM String
layout chan logfile elapsedTime = do
    headers chan
    scoreboard 15
    hourlyActivity
    charsToLinesRatio
    footer $ "0.1.0 in " ++ show elapsedTime
    getFinalOutput

-- | Parses the command line options and then processes files (if any).
layout chan logfile elapsedTime = do
    headers chan
    scoreboard 15
    hourlyActivity
    charsToLinesRatio
    footer $ "0.1.0 in " ++ show elapsedTime
    getFinalOutput

-- | Parses the command line options and then processes files (if any).