Parsec

parseMan 

1: 'x', 2, -3, 4

parsePeople

module Main where

import Text.Parsec
import Text.Parsec.String
import Control.Applicative hiding ((<|>))

data Person = Person { num :: Int
                     , sym :: Char
                     , opinions :: [Opinion]
                     } deriving (Show)

data Opinion = Crazy Int
             | Normal Int
               deriving (Show)

parsePeople :: Parser [Person]
parsePeople = sepEndBy parsePerson newline <* eof

parsePerson :: Parser Person
parsePerson = Person <$> parseNum <*> parseChar <*> parseOpinions

parseNum :: Parser Int
parseNum = parseInt <* spaces <* char ':' <* spaces

parseChar :: Parser Char
parseChar = char '\'' *> spaces *> anyChar <* char '\''

parseInt :: Parser Int
parseInt = read <$> many1 digit

parseOpinions :: Parser [Opinion]
parseOpinions = char ',' *> spaces *> sepBy parseOpinion (char ',' *> spaces)

parseOpinion :: Parser Opinion
parseOpinion = Crazy <$> (char '-' *> parseInt)
           <|> Normal <$> parseInt

main :: IO ()
main = do input <- readFile "input.txt"
          case parse parsePeople "input.txt" input of
            Left err -> print err
            Right result -> mapM_ print result

> putStrLn =<< readFile "input.txt"
1: 'x', 2, -3, 4
2: 'y', -1, 3
3: 'z', -1, 2, -4
4: '@', -2, -3

> main
Person {num = 1, sym = 'x', opinions = [Normal 2,Crazy 3,Normal 4]}
Person {num = 2, sym = 'y', opinions = [Crazy 1,Normal 3]}
Person {num = 3, sym = 'z', opinions = [Crazy 1,Normal 2,Crazy 4]}
Person {num = 4, sym = '@', opinions = [Crazy 2,Crazy 3]}
> 

*Main> parse parseMan "file" "22: 'f'"
Right (Person {persNmb = 22, persSymbol = 'f', persOpinions = []})
*Main> parse parseMan "file" "22: 'f', 44"
Right (Person {persNmb = 22, persSymbol = 'f', persOpinions = [OpNoraml 44]})
*Main> parse parseMan "file" "22: 'f', 44 , -2"
Right (Person {persNmb = 22, persSymbol = 'f', persOpinions = [OpNoraml 44,OpCrazy 2]})

> parse (many parseMan) "" "1: 'x', 2, -3, 4\n \t \n \n 2: 'y', -2, 3, -4\n3: 'z', 22, 31, 33"
Right [Person {persNmb = 1, persSymbol = 'x', persOpinions = [OpNoraml 2,OpCrazy 3,OpNoraml 4]},Person {persNmb = 2, persSymbol = 'y', persOpinions = [OpCrazy 2,OpNoraml 3,OpCrazy 4]},Person {persNmb = 3, persSymbol = 'z', persOpinions = [OpNoraml 22,OpNoraml 31,OpNoraml 33]}]

*Main> parse (many parseMan) "file" "22: 'f', 44 , -2 4: 'f' 34: 'q', 44, 44"
Right [Person {persNmb = 22, persSymbol = 'f', persOpinions = [OpNoraml 44,OpCrazy 2]},Person {persNmb = 4, persSymbol = 'f', persOpinions = []},Person {persNmb = 34, persSymbol = 'q', persOpinions = [OpNoraml 44,OpNoraml 44]}]