Log Analysis

gistfile1.hs

module LogAnalysis where
import Log

parseMessage :: String -> LogMessage
parseMessage s = LogMessage messageType timestamp message
                 where  wordAry       = words s
                        firstChar     = wordAry !! 0
                        secondChar    = wordAry !! 1
                        messageType   = case firstChar of
                                          "I" -> Info
                                          "W" -> Warning
                                          "E" -> (Error (read secondChar :: Int))
                        timestamp     = case messageType of
                                          (Error n) -> read (wordAry !! 2) :: Int
                                          (Info)    -> read (wordAry !! 1) :: Int
                                          (Warning) -> read (wordAry !! 1) :: Int
                        message       = case messageType of
                                          (Error n) -> unwords (drop 3 wordAry)
                                          (Info)    -> unwords (drop 2 wordAry)
                                          (Warning) -> unwords (drop 2 wordAry)

okay, I will look more into pattern matching
husanu has left IRC (Remote host closed the connection)
reindeernix
why shouldn't you use !!?
husanu has joined ([email protected])
joneshf-laptop
partial
obb has left IRC (Remote host closed the connection)
cj3kim
and then come back when I'm done
whiteline
well, it's ugly. also, you're traversing a structure twice.
machine_coder has joined (~[email protected])
joneshf-laptop

[1,2,3] !! 10
lambdabot
*Exception: Prelude.!!: index too large
dan_f has joined (~[email protected])
whiteline
no idea if the compiler optimizes that away though
r4yan2 has left IRC (Ping timeout: 264 seconds)
whiteline
yeah, and patterns can catch size issues w/otherwise
vkosdll has joined (68833a8a@gateway/web/freenode/ip.104.131.58.138)
tristanp has left IRC (Remote host closed the connection)
Welkin
parseMessage i = case words i of ('E' : code : line : msg) -> LogMessage (Error code) line (words msg)
Welkin
er
Welkin
unwords msg