Avoid conversion from floating point

2015-08-20 20:38:54 +02:00 · 2015-08-20 20:38:54 +02:00 · 6ed0732644
commit 6ed0732644
parent af0bbedd48
1 changed files with 2 additions and 2 deletions
--- a/src/Data/Number/Functions.hs
+++ b/src/Data/Number/Functions.hs
@ -5,7 +5,7 @@ import Data.Number.Types
 import Data.Number.Instances
 import Data.Number.Internal
 import Data.Number.Peano
-
+import Data.Ratio

 -- Various --

@ -55,7 +55,7 @@ toList (x:|xs) = x : toList xs
 --
 --  <<https://i.imgur.com/S1F6UoI.png>>
 π :: Number
-π = toNumber pi
+π = toNumber (80143857 % 25510582)

 -- | Euler's number: the base of the natural logarithm
 --