[project @ 2000-06-12 21:40:05 by panne]

[ghc-hetmet.git] / ghc / tests / programs / waugh_neural / Main.lhs

diff --git a/ghc/tests/programs/waugh_neural/Main.lhs b/ghc/tests/programs/waugh_neural/Main.lhs
index 5eed87f..7776183 100644 (file)
--- a/ghc/tests/programs/waugh_neural/Main.lhs
+++ b/ghc/tests/programs/waugh_neural/Main.lhs
@@ -7,8 +7,7 @@ backpropagation functions and values.
 
 > import BpGen
 > import ReadLists (readWhiteList)
-> import {-fool mkdependHS-}
->       Printf
+> import Numeric(showFFloat)
 
 -------------------------------------------------------------------------------
 |                              Constant Values                               |
@@ -79,7 +78,7 @@ The following constants set the training problem and parameters:
 -------------------------------------------------------------------------------
 
 > showdouble :: Double -> ShowS
-> showdouble v = showString (printf "%6.4f " [UDouble v])
+> showdouble = showFFloat (Just 4)
 
 > showdoubles :: [Double] -> ShowS
 > showdoubles []     = showString ""