From aa54284fecfa513b7563e79a2fb1730a4f5322bb Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 12 Jun 2000 21:40:05 +0000
Subject: [PATCH] [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. :-)
---
ghc/tests/programs/waugh_neural/Main.lhs | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/ghc/tests/programs/waugh_neural/Main.lhs b/ghc/tests/programs/waugh_neural/Main.lhs
index 5eed87fc0ba0..7776183868c9 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 ""
--
GitLab