Commit db04c1fd authored by Shuhei Kagawa's avatar Shuhei Kagawa Committed by Herbert Valerio Riedel

Fix typo: ambigious -> ambiguous

parent bcdcdc10
......@@ -108,14 +108,14 @@ buildExpressionParser operators simpleExpr
prefixOp = choice prefix <?> ""
postfixOp = choice postfix <?> ""
ambigious assoc op= try $
ambiguous assoc op= try $
do{ _ <- op; fail ("ambiguous use of a " ++ assoc
++ " associative operator")
}
ambigiousRight = ambigious "right" rassocOp
ambigiousLeft = ambigious "left" lassocOp
ambigiousNon = ambigious "non" nassocOp
ambiguousRight = ambiguous "right" rassocOp
ambiguousLeft = ambiguous "left" lassocOp
ambiguousNon = ambiguous "non" nassocOp
termP = do{ pre <- prefixP
; x <- term
......@@ -131,8 +131,8 @@ buildExpressionParser operators simpleExpr
; y <- do{ z <- termP; rassocP1 z }
; return (f x y)
}
<|> ambigiousLeft
<|> ambigiousNon
<|> ambiguousLeft
<|> ambiguousNon
-- <|> return x
rassocP1 x = rassocP x <|> return x
......@@ -141,17 +141,17 @@ buildExpressionParser operators simpleExpr
; y <- termP
; lassocP1 (f x y)
}
<|> ambigiousRight
<|> ambigiousNon
<|> ambiguousRight
<|> ambiguousNon
-- <|> return x
lassocP1 x = lassocP x <|> return x
nassocP x = do{ f <- nassocOp
; y <- termP
; ambigiousRight
<|> ambigiousLeft
<|> ambigiousNon
; ambiguousRight
<|> ambiguousLeft
<|> ambiguousNon
<|> return (f x y)
}
-- <|> return x
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment