purs-tidy

Author: jamesdbrock

src/Text/Parsing/Parser/Expr.purs

@@ -14,7 +14,7 @@ import Prelude hiding (between)
 import Control.Alt ((<|>))
 import Data.Foldable (foldl, foldr)
 import Data.List (List(..), (:))
-import Parsing(ParserT)
+import Parsing (ParserT)
 import Parsing.Combinators (choice, (<?>))
 
 data Assoc = AssocNone | AssocLeft | AssocRight

src/Text/Parsing/Parser/String/Basic.purs

@@ -28,7 +28,7 @@ import Data.Number as Data.Number
 import Data.String (CodePoint)
 import Data.String.CodePoints (codePointFromChar)
 import Data.Tuple (Tuple(..))
-import Parsing(ParserT, fail)
+import Parsing (ParserT, fail)
 import Parsing.Combinators (choice, skipMany, (<?>))
 import Parsing.String (noneOf, noneOfCodePoints, oneOf, oneOfCodePoints, skipSpaces, whiteSpace)
 import Parsing.String as Parser.String

src/Text/Parsing/Parser/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,21 +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 " " $> ""
-            <|> "47"
-            <??> const "" <$> string " "
-              <* ("48" <??> string " ")
-              *> ("49" <??> string " ")
+            <|>
+              "46"
+                <??> string " " $> ""
+            <|>
+              "47"
+                <??> const "" <$> string " "
+                <* ("48" <??> string " ")
+                *> ("49" <??> string " ")
         ]
     )
     "no"