bytestring-nums 0.2.0 → 0.2.1
raw patch · 2 files changed
+8/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
Data/ByteString/Nums/Careless/Float.hs view
@@ -7,8 +7,9 @@ module Data.ByteString.Nums.Careless.Float where -import Prelude hiding (length, splitAt)-import Data.ByteString.Char8 hiding (inits, elem, last)+import Data.Char+import Prelude hiding (splitAt)+import Data.ByteString.Char8 hiding (length, inits, elem, last) import qualified Data.ByteString.Lazy.Char8 as Lazy @@ -42,18 +43,20 @@ strict_float bytes = case findIndices (`elem` ".,") bytes of [ ] -> int bytes- idx -> hi' + (int lo * (0.1 ^ length lo) * s)+ idx -> hi' + (int lo * (0.1 ^ length digits) * s) where (hi, lo) = splitAt (last idx) bytes hi' = int hi s = signum hi'+ digits = findIndices isDigit lo lazy_float bytes = case Lazy.findIndices (`elem` ".,") bytes of [ ] -> int bytes- idx -> hi' + (int lo * (0.1 ^ Lazy.length lo) * s)+ idx -> hi' + (int lo * (0.1 ^ length digits) * s) where (hi, lo) = Lazy.splitAt (last idx) bytes hi' = int hi s = signum hi'+ digits = Lazy.findIndices isDigit lo
bytestring-nums.cabal view
@@ -1,5 +1,5 @@ name : bytestring-nums-version : 0.2.0+version : 0.2.1 category : Text license : BSD3 license-file : LICENSE