orion/purescript-csv-stream
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: parse numbers properly

Browse Source
This commit is contained in:
bingus 2024-05-01 16:45:20 -05:00
parent bb2274bf19
commit 488ea405ff
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data.CSV.purs
View File

@ -9,11 +9,12 @@ import Data.Int as Int
import Data.List.NonEmpty (NonEmptyList) import Data.List.NonEmpty (NonEmptyList)
import Data.Maybe (Maybe(..), maybe) import Data.Maybe (Maybe(..), maybe)
import Data.Newtype (unwrap) import Data.Newtype (unwrap)
import Data.Number (fromString) as Number
import Data.Number.Format (toString) as Number import Data.Number.Format (toString) as Number
import Data.PreciseDateTime (fromDateTime, fromRFC3339String, toDateTimeLossy, toRFC3339String) import Data.PreciseDateTime (fromDateTime, fromRFC3339String, toDateTimeLossy, toRFC3339String)
import Data.RFC3339String (RFC3339String(..)) import Data.RFC3339String (RFC3339String(..))
import Data.String as String import Data.String as String
import Foreign (ForeignError(..), readInt, readNumber, unsafeToForeign) import Foreign (ForeignError(..))
class ReadCSV a where class ReadCSV a where
readCSV :: String -> Except (NonEmptyList ForeignError) a readCSV :: String -> Except (NonEmptyList ForeignError) a
@ -22,10 +23,10 @@ class WriteCSV a where
writeCSV :: a -> String writeCSV :: a -> String
instance ReadCSV Int where instance ReadCSV Int where
readCSV = readInt <<< unsafeToForeign readCSV s = liftMaybe (pure $ ForeignError $ "invalid integer: " <> s) $ Int.fromString s
instance ReadCSV Number where instance ReadCSV Number where
readCSV = readNumber <<< unsafeToForeign readCSV s = liftMaybe (pure $ ForeignError $ "invalid number: " <> s) $ Number.fromString s
instance ReadCSV String where instance ReadCSV String where
readCSV = pure readCSV = pure