digit 0.12 → 0.13
raw patch · 3 files changed
+30/−1 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.Digit.Decimal: data DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D1.D1 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D2.D2 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D3.D3 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D4.D4 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D5.D5 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D6.D6 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D7.D7 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D8.D8 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance Data.Digit.Class.D9.D9 Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance GHC.Classes.Eq Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance GHC.Classes.Ord Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance GHC.Enum.Bounded Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance GHC.Enum.Enum Data.Digit.Decimal.DecDigitNoZero
+ Data.Digit.Decimal: instance GHC.Show.Show Data.Digit.Decimal.DecDigitNoZero
Files
- changelog.md +4/−0
- digit.cabal +1/−1
- src/Data/Digit/Decimal.hs +25/−0
changelog.md view
@@ -1,3 +1,7 @@+0.13++* Make `DecDigitNoZero` data type.+ 0.12 * Fix bug in functions that produce Integral values.
digit.cabal view
@@ -1,5 +1,5 @@ name: digit-version: 0.12+version: 0.13 license: BSD3 license-file: LICENCE author: System F <nɐ˙ɯoɔ˙ɟɯǝʇsʎs@ǝpoɔ>
src/Data/Digit/Decimal.hs view
@@ -4,6 +4,7 @@ module Data.Digit.Decimal( DecDigit(..)+, DecDigitNoZero , DecimalNoZero , Decimal , parseDecimalNoZero@@ -73,6 +74,30 @@ instance D7 DecDigit where; d7 = _DecDigit7 instance D8 DecDigit where; d8 = _DecDigit8 instance D9 DecDigit where; d9 = _DecDigit9++data DecDigitNoZero =+ DecDigitNoZero1+ | DecDigitNoZero2+ | DecDigitNoZero3+ | DecDigitNoZero4+ | DecDigitNoZero5+ | DecDigitNoZero6+ | DecDigitNoZero7+ | DecDigitNoZero8+ | DecDigitNoZero9+ deriving (Show, Eq, Ord, Enum, Bounded)++makePrisms ''DecDigitNoZero++instance D1 DecDigitNoZero where; d1 = _DecDigitNoZero1+instance D2 DecDigitNoZero where; d2 = _DecDigitNoZero2+instance D3 DecDigitNoZero where; d3 = _DecDigitNoZero3+instance D4 DecDigitNoZero where; d4 = _DecDigitNoZero4+instance D5 DecDigitNoZero where; d5 = _DecDigitNoZero5+instance D6 DecDigitNoZero where; d6 = _DecDigitNoZero6+instance D7 DecDigitNoZero where; d7 = _DecDigitNoZero7+instance D8 DecDigitNoZero where; d8 = _DecDigitNoZero8+instance D9 DecDigitNoZero where; d9 = _DecDigitNoZero9 type DecimalNoZero d = (D1 d, D2 d, D3 d, D4 d, D5 d, D6 d, D7 d, D8 d, D9 d)