X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Fprograms%2Fwaugh_neural%2FMain.lhs;h=7776183868c9253a9fed3c2355623954fc410b24;hb=aa54284fecfa513b7563e79a2fb1730a4f5322bb;hp=5eed87fc0ba0316e2a1634498d8fd8a3a37e3a66;hpb=e1d2ed09fc5253f13929c346b6dbc487c2176f9b;p=ghc-hetmet.git

diff --git a/ghc/tests/programs/waugh_neural/Main.lhs b/ghc/tests/programs/waugh_neural/Main.lhs
index 5eed87f..7776183 100644
--- 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 ""