Safe Haskell	None
Language	Haskell2010

Nuxeo.Log

Synopsis

type NuxeoLog = [NuxeoLogEntry]
data NuxeoLogType
- = Debug
- | Error
- | Warning
- | Info
data NuxeoLogEntry = NuxeoLogEntry {
- nuxeoLogEntryDthr :: LocalTime
- nuxeoLogEntryType :: NuxeoLogType
- nuxeoLogEntrySection :: Text
- nuxeoLogEntryAction :: Text
- nuxeoLogEntryLog :: Text
}
parseNuxeoLog :: FilePath -> IO NuxeoLog

Documentation

type NuxeoLog = [NuxeoLogEntry] Source #

data NuxeoLogType Source #

Constructors

Debug
Error
Warning
Info

Instances

Eq NuxeoLogType Source #
Instance details Defined in Nuxeo.Log Methods (==) :: NuxeoLogType -> NuxeoLogType -> Bool # (/=) :: NuxeoLogType -> NuxeoLogType -> Bool #
Read NuxeoLogType Source #
Instance details Defined in Nuxeo.Log Methods readsPrec :: Int -> ReadS NuxeoLogType # readList :: ReadS [NuxeoLogType] # readPrec :: ReadPrec NuxeoLogType # readListPrec :: ReadPrec [NuxeoLogType] #
Show NuxeoLogType Source #
Instance details Defined in Nuxeo.Log Methods showsPrec :: Int -> NuxeoLogType -> ShowS # show :: NuxeoLogType -> String # showList :: [NuxeoLogType] -> ShowS #

data NuxeoLogEntry Source #

Constructors

NuxeoLogEntry
Fields nuxeoLogEntryDthr :: LocalTime nuxeoLogEntryType :: NuxeoLogType nuxeoLogEntrySection :: Text nuxeoLogEntryAction :: Text nuxeoLogEntryLog :: Text

Instances

Show NuxeoLogEntry Source #
Instance details Defined in Nuxeo.Log Methods showsPrec :: Int -> NuxeoLogEntry -> ShowS # show :: NuxeoLogEntry -> String # showList :: [NuxeoLogEntry] -> ShowS #

parseNuxeoLog :: FilePath -> IO NuxeoLog Source #

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)
            )