1 files changed, 1 insertions, 1 deletions
diff --git a/rpn.hs b/rpn.hs
index 68c0831..ff7dd6c 100755
--- a/rpn.hs
+++ b/rpn.hs
@@ -40,7 +40,7 @@ fromSymbol (Number x d) = (x, d)
 fromSymbol _ = (0, 0)
-pPrint :: Show a => Symbol a -> String
+pPrint :: (Show a, Fractional a) => Symbol a -> String
 pPrint (Number x d) = (show x) ++ " ± " ++ (show d) ++ " (relative error: " ++ (show $ d / x) ++ ")"
 pPrint s = show s

diff --git a/rpn.hs b/rpn.hs index 68c0831..ff7dd6c 100755 --- a/rpn.hs +++ b/rpn.hs
@@ -40,7 +40,7 @@ fromSymbol (Number x d) = (x, d)
40	fromSymbol _ = (0, 0)	40	fromSymbol _ = (0, 0)
41		41
42		42
43	pPrint :: Show a => Symbol a -> String	43	pPrint :: (Show a, Fractional a) => Symbol a -> String
44	pPrint (Number x d) = (show x) ++ " ± " ++ (show d) ++ " (relative error: " ++ (show $ d / x) ++ ")"	44	pPrint (Number x d) = (show x) ++ " ± " ++ (show d) ++ " (relative error: " ++ (show $ d / x) ++ ")"
45	pPrint s = show s	45	pPrint s = show s
46		46