Permalink
Browse files

Don't promise too much

  • Loading branch information...
1 parent 1e64fc2 commit 890c79744e3b694f1727932bd46c0b06ae7848bc @tibbe committed Nov 21, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 Data/Csv/Conversion.hs
View
@@ -408,8 +408,8 @@ instance FromField Double where
parseField = parseDouble
{-# INLINE parseField #-}
--- | Uses decimal notation for values between @0.1@ and @9,999,999@,
--- and scientific notation otherwise.
+-- | Uses decimal notation or scientific notation, depending on the
+-- number.
instance ToField Double where
toField = realFloat
{-# INLINE toField #-}
@@ -419,8 +419,8 @@ instance FromField Float where
parseField s = double2Float <$> parseDouble s
{-# INLINE parseField #-}
--- | Uses decimal notation for values between @0.1@ and @9,999,999@,
--- and scientific notation otherwise.
+-- | Uses decimal notation or scientific notation, depending on the
+-- number.
instance ToField Float where
toField = realFloat
{-# INLINE toField #-}

0 comments on commit 890c797

Please sign in to comment.