From: panne <unknown>
Date: Mon, 12 Jun 2000 21:40:05 +0000 (+0000)
Subject: [project @ 2000-06-12 21:40:05 by panne]
X-Git-Tag: Approximately_9120_patches~4264
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aa54284fecfa513b7563e79a2fb1730a4f5322bb;p=ghc-hetmet.git

[project @ 2000-06-12 21:40:05 by panne]
printf => showFFloat. Now waugh_neural fails with
   Fail: Prelude.(!!): negative index,
but that's better than before.  :-)
---

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 ""