Fix typo: ambigious -> ambiguous
authorShuhei Kagawa <shuhei.kagawa@gmail.com>
Sat, 21 Oct 2017 13:40:09 +0000 (15:40 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sat, 21 Oct 2017 13:49:04 +0000 (15:49 +0200)
Text/Parsec/Expr.hs

index 4f73517..8265e38 100644 (file)
@@ -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