parseAction :: Parser String
parseAction = do action <- many (letter <|> digit)
                 char ' '
                 skipSpace
                 return action
                 
-- | Parse the timestamp for an entry in the log.
parseAction :: Parser String
parseAction = do action <- many (letter <|> digit)
                 char ' '
                 skipSpace
                 return action
                 
-- | Parse the timestamp for an entry in the log.
parseAction = do action <- many (letter <|> digit)
                 char ' '
                 skipSpace
                 return action
                 
-- | Parse the timestamp for an entry in the log.