update examples

1 files changed, 3 insertions, 3 deletions

diff --git a/examples/root.hs b/examples/root.hs
index 8546ff5..fa6e77a 100644
--- a/examples/root.hs
+++ b/examples/root.hs
@@ -9,7 +9,7 @@ test method = do
     print method
     let (s,p) = root method 1E-7 30 (rosenbrock 1 10) [-10,-5]
     print s -- solution
-    disp p -- evolution of the algorithm
+    disp' p -- evolution of the algorithm
 
 jacobian a b [x,y] = [ [-a    , 0]
                      , [-2*b*x, b] ]
@@ -18,9 +18,9 @@ testJ method = do
     print method
     let (s,p) = rootJ method 1E-7 30 (rosenbrock 1 10) (jacobian 1 10) [-10,-5]
     print s
-    disp p
+    disp' p
 
-disp = putStrLn . format "  " (printf "%.3f")
+disp' = putStrLn . format "  " (printf "%.3f")
 
 main = do
     test Hybrids