data-textual 0.3.0.2 → 0.3.0.3
raw patch · 4 files changed
+33/−12 lines, 4 filesdep ~text-latin1PVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: text-latin1
API changes (from Hackage documentation)
- Data.Textual: instance Alternative Parsed
- Data.Textual: instance Alternative Parser
- Data.Textual: instance Applicative Parsed
- Data.Textual: instance Applicative Parser
- Data.Textual: instance CharParsing Parser
- Data.Textual: instance Eq α => Eq (Parsed α)
- Data.Textual: instance Foldable Parsed
- Data.Textual: instance Functor Parsed
- Data.Textual: instance Functor Parser
- Data.Textual: instance HasResolution α => Printable (Fixed α)
- Data.Textual: instance HasResolution α => Textual (Fixed α)
- Data.Textual: instance Integral α => Printable (Ratio α)
- Data.Textual: instance Integral α => Textual (Ratio α)
- Data.Textual: instance Monad Parser
- Data.Textual: instance Parsing Parser
- Data.Textual: instance Printable Char
- Data.Textual: instance Printable Double
- Data.Textual: instance Printable Float
- Data.Textual: instance Printable Int
- Data.Textual: instance Printable Int16
- Data.Textual: instance Printable Int32
- Data.Textual: instance Printable Int64
- Data.Textual: instance Printable Int8
- Data.Textual: instance Printable Integer
- Data.Textual: instance Printable String
- Data.Textual: instance Printable Text
- Data.Textual: instance Printable Word
- Data.Textual: instance Printable Word16
- Data.Textual: instance Printable Word32
- Data.Textual: instance Printable Word64
- Data.Textual: instance Printable Word8
- Data.Textual: instance Show α => Show (Parsed α)
- Data.Textual: instance Textual Char
- Data.Textual: instance Textual Int
- Data.Textual: instance Textual Int16
- Data.Textual: instance Textual Int32
- Data.Textual: instance Textual Int64
- Data.Textual: instance Textual Int8
- Data.Textual: instance Textual Integer
- Data.Textual: instance Textual Word
- Data.Textual: instance Textual Word16
- Data.Textual: instance Textual Word32
- Data.Textual: instance Textual Word64
- Data.Textual: instance Textual Word8
- Data.Textual: instance Traversable Parsed
- Data.Textual: instance Typeable1 Parsed
- Data.Textual.Integral: instance Eq Sign
- Data.Textual.Integral: instance Read Sign
- Data.Textual.Integral: instance Show Sign
- Data.Textual.Integral: instance Typeable Sign
+ Data.Textual: instance Data.Fixed.HasResolution α => Data.Textual.Printable (Data.Fixed.Fixed α)
+ Data.Textual: instance Data.Fixed.HasResolution α => Data.Textual.Textual (Data.Fixed.Fixed α)
+ Data.Textual: instance Data.Foldable.Foldable Data.Textual.Parsed
+ Data.Textual: instance Data.Textual.Printable Data.Text.Internal.Lazy.Text
+ Data.Textual: instance Data.Textual.Printable Data.Text.Internal.Text
+ Data.Textual: instance Data.Textual.Printable GHC.Base.String
+ Data.Textual: instance Data.Textual.Printable GHC.Int.Int16
+ Data.Textual: instance Data.Textual.Printable GHC.Int.Int32
+ Data.Textual: instance Data.Textual.Printable GHC.Int.Int64
+ Data.Textual: instance Data.Textual.Printable GHC.Int.Int8
+ Data.Textual: instance Data.Textual.Printable GHC.Integer.Type.Integer
+ Data.Textual: instance Data.Textual.Printable GHC.Types.Char
+ Data.Textual: instance Data.Textual.Printable GHC.Types.Double
+ Data.Textual: instance Data.Textual.Printable GHC.Types.Float
+ Data.Textual: instance Data.Textual.Printable GHC.Types.Int
+ Data.Textual: instance Data.Textual.Printable GHC.Types.Word
+ Data.Textual: instance Data.Textual.Printable GHC.Word.Word16
+ Data.Textual: instance Data.Textual.Printable GHC.Word.Word32
+ Data.Textual: instance Data.Textual.Printable GHC.Word.Word64
+ Data.Textual: instance Data.Textual.Printable GHC.Word.Word8
+ Data.Textual: instance Data.Textual.Textual GHC.Int.Int16
+ Data.Textual: instance Data.Textual.Textual GHC.Int.Int32
+ Data.Textual: instance Data.Textual.Textual GHC.Int.Int64
+ Data.Textual: instance Data.Textual.Textual GHC.Int.Int8
+ Data.Textual: instance Data.Textual.Textual GHC.Integer.Type.Integer
+ Data.Textual: instance Data.Textual.Textual GHC.Types.Char
+ Data.Textual: instance Data.Textual.Textual GHC.Types.Int
+ Data.Textual: instance Data.Textual.Textual GHC.Types.Word
+ Data.Textual: instance Data.Textual.Textual GHC.Word.Word16
+ Data.Textual: instance Data.Textual.Textual GHC.Word.Word32
+ Data.Textual: instance Data.Textual.Textual GHC.Word.Word64
+ Data.Textual: instance Data.Textual.Textual GHC.Word.Word8
+ Data.Textual: instance Data.Traversable.Traversable Data.Textual.Parsed
+ Data.Textual: instance GHC.Base.Alternative Data.Textual.Parsed
+ Data.Textual: instance GHC.Base.Alternative Data.Textual.Parser
+ Data.Textual: instance GHC.Base.Applicative Data.Textual.Parsed
+ Data.Textual: instance GHC.Base.Applicative Data.Textual.Parser
+ Data.Textual: instance GHC.Base.Functor Data.Textual.Parsed
+ Data.Textual: instance GHC.Base.Functor Data.Textual.Parser
+ Data.Textual: instance GHC.Base.Monad Data.Textual.Parser
+ Data.Textual: instance GHC.Classes.Eq α => GHC.Classes.Eq (Data.Textual.Parsed α)
+ Data.Textual: instance GHC.Real.Integral α => Data.Textual.Printable (GHC.Real.Ratio α)
+ Data.Textual: instance GHC.Real.Integral α => Data.Textual.Textual (GHC.Real.Ratio α)
+ Data.Textual: instance GHC.Show.Show α => GHC.Show.Show (Data.Textual.Parsed α)
+ Data.Textual: instance Text.Parser.Char.CharParsing Data.Textual.Parser
+ Data.Textual: instance Text.Parser.Combinators.Parsing Data.Textual.Parser
+ Data.Textual.Integral: instance GHC.Classes.Eq Data.Textual.Integral.Sign
+ Data.Textual.Integral: instance GHC.Read.Read Data.Textual.Integral.Sign
+ Data.Textual.Integral: instance GHC.Show.Show Data.Textual.Integral.Sign
- Data.Textual.Fractional: data Binary :: *
+ Data.Textual.Fractional: data Binary
- Data.Textual.Fractional: data Decimal :: *
+ Data.Textual.Fractional: data Decimal
- Data.Textual.Fractional: data Hexadecimal :: *
+ Data.Textual.Fractional: data Hexadecimal
- Data.Textual.Fractional: data LowHex :: *
+ Data.Textual.Fractional: data LowHex
- Data.Textual.Fractional: data Octal :: *
+ Data.Textual.Fractional: data Octal
- Data.Textual.Fractional: data Optional :: *
+ Data.Textual.Fractional: data Optional
- Data.Textual.Fractional: data UpHex :: *
+ Data.Textual.Fractional: data UpHex
- Data.Textual.Integral: data Binary :: *
+ Data.Textual.Integral: data Binary
- Data.Textual.Integral: data Decimal :: *
+ Data.Textual.Integral: data Decimal
- Data.Textual.Integral: data Hexadecimal :: *
+ Data.Textual.Integral: data Hexadecimal
- Data.Textual.Integral: data LowHex :: *
+ Data.Textual.Integral: data LowHex
- Data.Textual.Integral: data Octal :: *
+ Data.Textual.Integral: data Octal
- Data.Textual.Integral: data UpHex :: *
+ Data.Textual.Integral: data UpHex
- Data.Textual.Integral: npbBits :: (BitSystem s, Ord α, Bounded α, Num α, Bits α, Monad μ, CharParsing μ) => s -> μ α
+ Data.Textual.Integral: npbBits :: forall s μ α. (BitSystem s, Ord α, Bounded α, Num α, Bits α, Monad μ, CharParsing μ) => s -> μ α
- Data.Textual.Integral: npcbBits :: (BitSystem s, Ord α, Bounded α, Num α, Bits α, Monad μ, CharParsing μ) => s -> μ α
+ Data.Textual.Integral: npcbBits :: forall s μ α. (BitSystem s, Ord α, Bounded α, Num α, Bits α, Monad μ, CharParsing μ) => s -> μ α
Files
- README.md +14/−0
- data-textual.cabal +8/−3
- src/Data/Textual.hs +3/−1
- src/Data/Textual/Integral.hs +8/−8
+ README.md view
@@ -0,0 +1,14 @@+Data-Textual+============++[](https://travis-ci.org/mvv/data-textual) [](http://hackage.haskell.org/package/data-textual)++This package provides an interface for converting between data and its+(human-friendly) textual representation.++Installation+------------+The usual:++ $ cabal install+
data-textual.cabal view
@@ -1,5 +1,5 @@ Name: data-textual-Version: 0.3.0.2+Version: 0.3.0.3 Category: Data, Text Stability: experimental Synopsis: Human-friendly textual representations.@@ -16,6 +16,12 @@ License: BSD3 License-File: LICENSE +Extra-Source-Files:+ README.md++Tested-With: GHC==7.6.3, GHC==7.8.4, GHC==7.10.3, GHC==8.0.2, GHC==8.2.2,+ GHC==8.4.4, GHC==8.6.5, GHC==8.8.1+ Cabal-Version: >= 1.10.0 Build-Type: Simple @@ -29,7 +35,7 @@ base >= 4 && < 5, bytestring >= 0.10, text,- text-latin1 >= 0.3,+ text-latin1 >= 0.3.1, text-printer >= 0.4, parsers >= 0.5 Hs-Source-Dirs: src@@ -54,4 +60,3 @@ Hs-Source-Dirs: tests GHC-Options: -Wall Main-Is: Tests.hs-
src/Data/Textual.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE UnicodeSyntax #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveFunctor #-}@@ -395,8 +396,10 @@ {-# INLINE (>>=) #-} (>>) = (*>) {-# INLINE (>>) #-}+#if !MIN_VERSION_base(4,13,0) fail = PC.unexpected {-# INLINE fail #-}+#endif parse ∷ Parser α → String → Parsed α parse p i = runParser p [] 0 i (\_ _ _ a → Parsed a)@@ -549,4 +552,3 @@ fromLazyUtf8As ∷ Textual α ⇒ p α → BL.ByteString → Maybe α fromLazyUtf8As _ = fromLazyUtf8 {-# INLINE fromLazyUtf8As #-}-
src/Data/Textual/Integral.hs view
@@ -309,7 +309,7 @@ go !n = optional digit >>= \case Just n1 → if n < q || (n == q && n1 <= r) then go (n * radix + n1)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n radix = radixIn s digit = digitIn s@@ -343,7 +343,7 @@ go !n = optional digit >>= \case Just d → if n < q || (n == q && d <= r) then go (n * radix + d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n radix = radixIn s digit = digitIn s@@ -654,7 +654,7 @@ go !n = optional digit >>= \case Just d → if n < q || (n == q && d <= r) then go ((n `shiftL` digitBits) .|. d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n digitBits = digitBitsIn s digit = digitIn s@@ -730,7 +730,7 @@ go !n = optional digit >>= \case Just d → if n < q || (n == q && d <= r) then go ((n `shiftL` digitBits) .|. d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n digitBits = digitBitsIn s digit = digitIn s@@ -928,7 +928,7 @@ go !n = optional digit >>= \case Just d → if n > q || (n == q && d <= r) then go (n * radix - d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n radix = radixIn s digit = digitIn s@@ -964,7 +964,7 @@ go !n = optional digit >>= \case Just d → if n > q || (n == q && d <= r) then go (n * radix - d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" Nothing → return n radix = radixIn s digit = digitIn s@@ -1287,7 +1287,7 @@ go !n = optional digit >>= \case Just d1 → if n > q || (n == q && d1 <= r) then go ((n `shiftL` digitBits) + d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" where !d = fromIntegral $ negate d1 Nothing → return n digitBits = digitBitsIn s@@ -1366,7 +1366,7 @@ go !n = optional digit >>= \case Just d1 → if n > q || (n == q && d1 <= r) then go ((n `shiftL` digitBits) + d)- else fail "out of bounds"+ else PC.unexpected "out of bounds" where !d = fromIntegral $ negate d1 Nothing → return n digitBits = digitBitsIn s