chore: remove time stuff

Author: drlkf

megaparsec-utils.cabal

@@ -31,7 +31,6 @@ source-repository head
 
 library
   exposed-modules:
-      Text.Megaparsec.Time
       Text.Megaparsec.Utils
   other-modules:
       Paths_megaparsec_utils
@@ -44,15 +43,13 @@ library
     , megaparsec >=9.0 && <10
     , parser-combinators >=1.0 && <2
     , text >=2.0 && <3
-    , time >=1.10 && <2
     , uuid >=1.3 && <2
   default-language: Haskell2010
 
 test-suite megaparsec-utils-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs
   other-modules:
-      Text.Megaparsec.TimeSpec
       Text.Megaparsec.UtilsSpec
       Paths_megaparsec_utils
   hs-source-dirs:
@@ -67,7 +64,5 @@ test-suite megaparsec-utils-test
     , megaparsec-utils
     , parser-combinators >=1.0 && <2
     , text >=2.0 && <3
-    , time >=1.10 && <2
     , uuid >=1.3 && <2
   default-language: Haskell2010
-  build-tool-depends: hspec-discover:hspec-discover == 2.*

package.yaml

@@ -28,7 +28,6 @@ dependencies:
   - megaparsec >= 9.0 && < 10
   - parser-combinators >= 1.0 && < 2
   - text >= 2.0 && < 3
-  - time >= 1.10 && < 2
   - uuid >= 1.3 && < 2
 
 ghc-options:
@@ -47,7 +46,6 @@ library:
 
 tests:
   megaparsec-utils-test:
-    defaults: sol/hpack-defaults@hspec-cabal-new
     main: Spec.hs
     source-dirs: test
     ghc-options:

src/Text/Megaparsec/Time.hs

@@ -49,6 +49,7 @@ import Text.Megaparsec.Char (
   hexDigitChar,
   string',
  )
+import Text.Read (readMaybe)
 
 -- | Parse a case-insensitive human-readable boolean, including C-style numbers
 -- and English yes-no.
@@ -97,22 +98,30 @@ occurrences
   -> Parsec e String [a]
 occurrences = some . try . occurrence . try
 
--- | Parse a positive number with decimals.
+-- | Parse a positive number, with or without decimals prefixed by a @.@.
 posDecNumParser
   :: Ord e
-  => Parsec e String Double
+  => Read a
+  => Parsec e String a
 posDecNumParser = do
   num <- some digitChar
-  den <- maybe "" ("." <>) <$> optional (char '.' >> some digitChar)
+  dec <- maybe "" ("." <>) <$> optional (char '.' >> some digitChar)
+
+  let str = num <> dec
 
-  return . read $ num <> den
+  maybe (fail ("could not read from input: " <> str)) pure (readMaybe str)
 
 -- | Parse a positive integer.
 posNumParser
   :: Ord e
   => Read a
   => Parsec e String a
-posNumParser = read <$> some digitChar
+posNumParser = do
+  digits <- some digitChar
+  maybe
+    (fail ("could not read from digits: " <> digits))
+    pure
+    (readMaybe digits) 
 
 -- | Parse an integer, without any space between minus sign and digits.
 numParser
@@ -132,7 +141,7 @@ parsecToJSONParser
   -- ^ Parser.
   -> (Value -> Parser a)
 parsecToJSONParser n p =
-  withText n $ either (fail . errorBundlePretty) pure . runParser p n . T.unpack
+  withText n (either (fail . errorBundlePretty) pure . runParser p n . T.unpack)
 
 -- | Convert a 'Parsec' parser into a 'ReadS' parser. Useful for defining 'Read'
 -- instances with 'Text.Megaparsec'.
@@ -152,4 +161,7 @@ uuidParser = do
   part4 <- replicateM 4 hexDigitChar <* char '-'
   part5 <- replicateM 12 hexDigitChar
 
-  pure . fromJust . U.fromString $ intercalate "-" [part1, part2, part3, part4, part5]
+  pure
+    (fromJust
+     (U.fromString
+      (intercalate "-" [part1, part2, part3, part4, part5])))