Erik de Castro Lopo wrote:
> binaryOp :: String -> (SourcePos -> a -> a -> a) -> E.Assoc -> E.Operator
> Char st a
> binaryOp name con assoc =
> E.Infix (reservedOp name >>
> getPosition >>=
> return . con) assoc
Replacing reservedOp above with:
reservedOpNf :: String -> CharParser st ()
reservedOpNf name = try (reservedOp name >> notFollowedBy (oneOf "|&="))
fixed the problem.
Cheers,
Erik
--
-----------------------------------------------------------------
Erik de Castro Lopo
-----------------------------------------------------------------
"If dolphins are so smart, why do they live in igloos?" -Eric Cartman
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
