[Haskell-cafe] problem with happy

Hi, I've tried to make simple monadic happy parser with monadic lexer, but even trivial parser (attached) outputs: Ok "\r\n" instead of string from 'sample' file. Seems I can't spot error by myself, so I need your help, guys. Thanks in advance, Roman.