[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / barton-mangler-bug / PlotExample.lhs

diff --git a/ghc/tests/programs/barton-mangler-bug/PlotExample.lhs b/ghc/tests/programs/barton-mangler-bug/PlotExample.lhs
deleted file mode 100644 (file)
index cc7a993..0000000
--- a/ghc/tests/programs/barton-mangler-bug/PlotExample.lhs
+++ /dev/null
@@ -1,21 +0,0 @@
-This file contains code that is explicitly designed to plot examples
-from the signal modeling language.
-
-> module PlotExample where
-
-> import Plot
-> import Physical
-> import Basic
-
-Our main task is to take a signal and a begin and start point (both
-reals) and convert it into something that plotExam can take in the
-Plot module.
-
-> plotExample:: (Signal s, Physical a, Physical b) =>
->               String -> s a b -> Float -> Float -> IO()
-> plotExample fl sig s e = plotExam fl s e f
->                    where f  = toFloatFunc f'
->                          f' = mapSignal sig
-
-> toFloatFunc:: (Physical a, Physical b) => (a -> b) -> Float -> Float
-> toFloatFunc f x = fromPhysical (f (toPhysical x))