Account for parsing breaking changes (#82)

* Account for parsing breaking changes

Author: JordanMartinez

src/Data/Formatter/DateTime.purs

@@ -46,6 +46,7 @@ import Data.Tuple (Tuple(..))
 import Parsing as P
 import Parsing.Combinators as PC
 import Parsing.String as PS
+import Parsing.String.Basic as PSB
 
 data FormatterCommand
   = YearFull
@@ -115,7 +116,7 @@ parseFormatString = runP formatParser
 placeholderContent :: P.Parser String String
 placeholderContent =
   CU.toCharArray "YMDEHhamsS"
-    # PS.noneOf
+    # PSB.noneOf
     # Array.some
     <#> CU.fromCharArray
 

src/Data/Formatter/Number.purs

@@ -33,6 +33,7 @@ import Data.Traversable (for)
 import Parsing as P
 import Parsing.Combinators as PC
 import Parsing.String as PS
+import Parsing.String.Basic as PSB
 
 newtype Formatter = Formatter
   { comma :: Boolean
@@ -191,7 +192,7 @@ unformatParser (Formatter f) = do
       when (Arr.length ds /= 3) do
         P.fail "Wrong number of digits between thousand separators"
 
-      sep <- PS.oneOf [ ',', '.' ]
+      sep <- PSB.oneOf [ ',', '.' ]
       case sep of
         '.' -> pure $ accum <> ds
         ',' -> digitsWithCommas' $ accum <> ds
@@ -213,7 +214,7 @@ unformatParser (Formatter f) = do
 
   abbr <-
     if f.abbreviations then do
-      letter <- PC.optionMaybe $ PC.try $ PS.oneOf [ 'K', 'M', 'G', 'T', 'P', 'E', 'Z', 'Y' ]
+      letter <- PC.optionMaybe $ PC.try $ PSB.oneOf [ 'K', 'M', 'G', 'T', 'P', 'E', 'Z', 'Y' ]
       case letter of
         Nothing -> do
           e <- PC.optionMaybe $ PS.string "10e+"

src/Data/Formatter/Parser/Number.purs

@@ -15,6 +15,7 @@ import Parsing as P
 import Parsing.Combinators as PC
 import Data.Formatter.Parser.Utils (oneOfAs)
 import Parsing.String as PS
+import Parsing.String.Basic as PSB
 import Data.Maybe (Maybe(..))
 import Data.Number (fromString)
 import Data.Foldable (foldMap)
@@ -35,7 +36,7 @@ parseFractional = do
 parseNumber :: forall m. Monad m => P.ParserT String m Number
 parseNumber = (+)
   <$> (parseInteger <#> toNumber)
-  <*> (PC.option 0.0 $ PC.try $ PS.oneOf [ '.', ',' ] *> parseFractional)
+  <*> (PC.option 0.0 $ PC.try $ PSB.oneOf [ '.', ',' ] *> parseFractional)
 
 parseDigit :: forall m. Monad m => P.ParserT String m Int
 parseDigit = PC.try $ PS.char `oneOfAs`

src/Data/Formatter/Parser/Utils.purs

@@ -6,8 +6,7 @@ module Data.Formatter.Parser.Utils
 import Prelude
 
 import Data.Tuple (Tuple(..))
-import Parsing (ParserT, Parser, runParser, ParseError, parseErrorMessage, parseErrorPosition)
-import Parsing.Pos (Position(..))
+import Parsing (ParserT, Parser, Position(..), runParser, ParseError, parseErrorMessage, parseErrorPosition)
 import Parsing.Combinators as PC
 import Parsing.String as PS
 import Data.Bifunctor (lmap)