From 30fdf02aff2ac1c4da2bb9292fc08cc8330580d0 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 23 Nov 2007 13:25:42 +0000 Subject: removed many -Wall warnings --- lib/Graphics/Plot.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'lib/Graphics') diff --git a/lib/Graphics/Plot.hs b/lib/Graphics/Plot.hs index c763294..d2c96a6 100644 --- a/lib/Graphics/Plot.hs +++ b/lib/Graphics/Plot.hs @@ -32,8 +32,6 @@ import Numeric.LinearAlgebra.Linear(outer) import Numeric.GSL.Vector(FunCodeS(Max,Min),toScalarR) import Data.List(intersperse) import System -import Data.IORef -import System.Exit import Foreign hiding (rotate) @@ -107,10 +105,7 @@ mplot m = gnuplotX (commands++dats) where dats = concat (replicate (length m-1) dat) - - - - +{- mplot' m = do writeFile "plot-gnu-command" (commands++endcmd) toFile "plot-tmp.txt" (fromColumns m) @@ -125,6 +120,7 @@ mplot' m = do plots = concat $ intersperse ", " (map cmd [2 .. length m]) cmd k = "\"plot-tmp.txt\" using 1:"++show k++" with lines" endcmd = "pause -1" +-} -- apply several functions to one object mapf fs x = map ($ x) fs -- cgit v1.2.3