Change internal DoubleLiteral type to Scientific

mfussenegger · mfussenegger · commit d4bef3adac99 · 2018-12-09T15:37:32.000+01:00
To avoid the Double -&gt; Scientific conversions
diff --git a/src/Expr.hs b/src/Expr.hs
@@ -3,20 +3,21 @@
 module Expr where
 
 import           Data.Maybe        (fromMaybe)
+import           Data.Scientific   (Scientific)
 import           Data.String       (IsString (..))
 import           Data.Text         (Text)
 import qualified Data.Text         as T
-import           Text.Parsec       (many, many1, optionMaybe, parse,
-                                    sepBy, (<|>))
-import           Text.Parsec.Char  (char, digit, letter, spaces, noneOf)
+import           Text.Parsec       (many, many1, optionMaybe, parse, sepBy,
+                                    (<|>))
+import           Text.Parsec.Char  (char, digit, letter, noneOf, spaces)
 import           Text.Parsec.Error (ParseError)
 import           Text.Parsec.Text  (Parser)
 
 -- $setup
 -- >>> :set -XOverloadedStrings
 
 data Expr = IntLiteral Integer
-          | DoubleLiteral Double
+          | DoubleLiteral Scientific
           | StringLiteral Text
           | FunctionCall { fcName :: Text, fcArgs :: [Expr] }
           deriving (Show, Eq)
@@ -46,7 +47,6 @@ number = do
     (Just _) -> do
       fractional <- many digit
       let
-        value :: Double
         value = read $ integer <> "." <> fractional
       pure $ DoubleLiteral value
 
diff --git a/src/Fake.hs b/src/Fake.hs
@@ -162,7 +162,7 @@ fromFile fileName = do
 eval :: Expr -> State Value
 eval (IntLiteral x)    = pure $ Number $ fromInteger x
 eval (StringLiteral x) = pure $ String x
-eval (DoubleLiteral x) = pure $ Number $ S.fromFloatDigits x
+eval (DoubleLiteral x) = pure $ Number x
 eval (FunctionCall "uuid4" []) = String . UUID.toText <$> withStdGen random
 eval (FunctionCall "uuid1" []) = String . UUID.toText <$> uuid1
 eval (FunctionCall "randomInt" [lower, upper]) = randomInt lower upper
