main = do
  logs <- readFile "serverlogs.log"
  putStrLn $ head $ lines logs

import Control.Applicative ((<$>))

import Log.LogAnalysis

main = do
  logs <- parse <$> readFile "serverlogs.log"
  putStrLn $ head $ show <$> logs

Use "parse" to extract log structure
5: Use "parse" to extract log structure
