Merge pull request #175 from natefaubion/fix-tidyoperators

Fix tidyoperators precedence

Author: jamesdbrock

.tidyoperators

@@ -186,6 +186,19 @@ Data.Semiring.(+) 6
 Data.Tuple.Nested.(/\) type 6
 Data.Tuple.Nested.(/\) 6
 Math.(%) 7
+Parsing.Indent.(<*/>) 11
+Parsing.Indent.(<+/>) 9
+Parsing.Indent.(<-/>) 10
+Parsing.Indent.(<?/>) 12
+Parsing.Combinators.($>) 4
+Parsing.Combinators.(<#>) 1
+Parsing.Combinators.(<$) 4
+Parsing.Combinators.(<$>) 4
+Parsing.Combinators.(<?>) 4
+Parsing.Combinators.(<??>) 3
+Parsing.Combinators.(<@>) 4
+Parsing.Combinators.(<|>) 3
+Parsing.Combinators.(<~?>) 4
 Prelude.(~>) type 4
 Prelude.(#) 1
 Prelude.($) 0
@@ -216,16 +229,3 @@ Prelude.(>=>) 1
 Prelude.(>>=) 1
 Prelude.(>>>) 9
 Prelude.(||) 2
-Text.Parsing.Indent.(<*/>) 11
-Text.Parsing.Indent.(<+/>) 9
-Text.Parsing.Indent.(<-/>) 10
-Text.Parsing.Indent.(<?/>) 12
-Text.Parsing.Parser.Combinators.($>) 4
-Text.Parsing.Parser.Combinators.(<#>) 1
-Text.Parsing.Parser.Combinators.(<$) 4
-Text.Parsing.Parser.Combinators.(<$>) 4
-Text.Parsing.Parser.Combinators.(<?>) 4
-Text.Parsing.Parser.Combinators.(<??>) 3
-Text.Parsing.Parser.Combinators.(<@>) 4
-Text.Parsing.Parser.Combinators.(<|>) 3
-Text.Parsing.Parser.Combinators.(<~?>) 4

src/Parsing/Token.purs

@@ -688,7 +688,7 @@ makeTokenParser (LanguageDef languageDef) =
   zeroNumber =
     char '0'
       *> (hexadecimal <|> octal <|> decimal <|> pure 0)
-        <?> ""
+      <?> ""
 
   decimal :: ParserT String m Int
   decimal = number 10 Basic.digit

test/Main.purs

@@ -694,10 +694,10 @@ main = do
             <|> const "" <$> string " " <?> "7"
               <* string " "
               $> ""
-                <?> "8"
+              <?> "8"
               *> string " "
               $> ""
-                <?> "9"
+              <?> "9"
         , fail "test <~?>"
         , string " " <~?> \_ -> "21"
         , string " " <|> string " " <~?> \_ -> "22"
@@ -707,23 +707,23 @@ main = do
             <|> const "" <$> string " " <~?> (\_ -> "27")
               <* string " "
               $> ""
-                <~?> (\_ -> "28")
+              <~?> (\_ -> "28")
               *> string " "
               $> ""
-                <~?> \_ -> "29"
+              <~?> \_ -> "29"
         , fail "test <??>"
         , "41" <??> string " "
         , "42" <??> string " " <|> string " "
         , "43" <??> string " " <|> "44" <??> string " "
         , "45" <??> "" <$ string " "
             <|>
               "46"
-                <??> string " " $> ""
+            <??> string " " $> ""
             <|>
               "47"
-                <??> const "" <$> string " "
-                <* ("48" <??> string " ")
-                *> ("49" <??> string " ")
+            <??> const "" <$> string " "
+              <* ("48" <??> string " ")
+              *> ("49" <??> string " ")
         ]
     )
     "no"