From 6ed0732644e725e5a14ba602b293267b0d28862a Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Thu, 20 Aug 2015 20:38:54 +0200
Subject: [PATCH] Avoid conversion from floating point

---
 src/Data/Number/Functions.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/Number/Functions.hs b/src/Data/Number/Functions.hs
index 6ab8446..941f134 100644
--- 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
 --