Documentation

Parse Nuxeo server.log

parseNuxeoLog "./server.log"
  >>= return . filter (l -> nuxeoLogEntryType l == Error)
  >>= mapM_ (t ->
                putStrLn $ (show $ nuxeoLogEntryType t)
                <>  " "
                <> (Text.unpack $ nuxeoLogEntryAction t)
                <> " "
                <> (Text.unpack $ nuxeoLogEntryLog t)
            )