Between :: ParserD a -> ParserD a
pragmaBetween = between (symbol lexer "{#") (symbol lexer "#}") 

par
pragmaBetween :: ParserD a -> ParserD a
pragmaBetween = between (symbol lexer "{#") (symbol lexer "#}")
pragmaBetween = between (symbol lexer "{#") (symbol lexer "#}")